% perl -wle '"a" =~ /a/; { "b" =~ /b/ } "ab" =~ // and print $&'
a
%