Select Code to Download

if (/($regex_string)/is) {

while (/$regex_string)/isg) {
    print "\nmatched in $arg1:\n==$1==\n";
}

part1.*?part2    part1.*?part2
Foo bar
Other pattern

hghghgghghh
part1
...
don't want
to see part2
blabla

#!/usr/bin/perl -w

...
    }
    print "\nmatched in $arg1:\n==$match==\n";
}