Select Code to Download

use strict;
use warnings;
...
my $text=<TEXTFILE>; # Slurp the whole file into one string

print "Matched!" if $text=~/match/;

perldoc perlretut
perldoc perlopentut
perldoc perlre
perldoc perlop
perldoc perlvar