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