my $output = $mech->content();
open(OUTFILE, ">", "$outfile");
print OUTFILE "$output";

open( FINAL, ">", "final output.txt" );

if ( $output=~ /(line i want )/ ) 
{
    print FINAL "$1";
}
close FINAL;