Help for this page

Select Code to Download

Select or download this

if ( my ($line) = $str =~ /^(.*?$regex.*)/m ) {
    print "Matched Line $line\n"
}