Select Code to Download

if ( $line =~ /(regex)/ ) {
      print "$line\n";
} else {
      print "whoops. no match!\n";