Select Code to Download

open my $f, '<', 'text.txt'
   or die "can't open file 'text.txt' for reading: $!";
...
while (<$f>) {
   print "Result: $1" if /particularly(.*)/;
}