Help for this page

Select Code to Download

Select or download this

for (1 .. 5) {
    print "Match!\n" if $some_string =~ /very long regex/o;
}

Select or download this

for (1 .. 5) {
    print "Match!\n"
        if $some_string =~ /very long regex $_ more regex/o;
}