Select Code to Download

#!/usr/bin/perl -w

...

if ( /($regex_string)/is ) {print "\n$arg1\n$1\n";}

part1.*part2
Foo bar
Other pattern

hghghgghghh
part1
...
Foo bar
kkjkjkj
Other pattern

/path/to/file
part1
fff
part2