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

if ( $output=~ /(line i want )/ ) {
    open( FINAL, ">", "final output.txt" );
    print FINAL "$1";
}
    close FINAL;