Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print $text;

#prints: that text

my $text = "this text";
print $text =~ /this/;

#match can be used like a boolean T/F
if($text =~ m/this/)
 { blah ...}