$path = "/usr/local/bin/tief/drin";
$path =~ m#([^/]*)$#;
$filename = $1;
print $filename, "\n";

$path =~ m{([^/]*)$};
$filename = $1;
print $filename, "\n";

$path =~ m[([^/]*)$];
$filename = $1;
print $filename, "\n";

$path =~ m(([^/]*)$);
$filename = $1;
print $filename, "\n";

$path =~ m<([^/]*)$>;
$filename = $1;
print $filename, "\n";