Help for this page
for ( 1 .. 5 ) { $foo = qr/$_/o; print "Match!\n" if '1' =~ m/$foo/; }
for ( 1 .. 5 ) { $foo = qr/$_/; print "Match!\n" if '1' =~ m/$foo/; }