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