c:\@Work\Perl>perl -wMstrict -le
"$_ = 'abc';
 ()== /./g;
 /(.)/g;
 print qq{'$1'};
"
Useless use of numeric eq (==) in void context at -e line 1.
Use of uninitialized value in numeric eq (==) at -e line 1.
'b'