$ perl -wle '"a" =~ /a/; // and print for qw( a b a b a b )'
a
a
a