c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = '/foo/bar/baz/bat';
 print qq{'$1'} if /([^/]+)$/;
"
Unmatched [ in regex; marked by <-- HERE in m/([ <-- HERE ^/ at ...

c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = '/foo/bar/baz/bat';
 print qq{'$1'} if m{([^/]+)$};
"
'bat'