remove line
This script will remove every line with the keyword ftwsx (of course you can change this). The result will be stored in 2.txt.
open (ERSTE, "1.txt") || die "file not found\n"; @urls = <ERSTE>; close (ERSTE); open (OUTFILE, ">>2.txt"); for(@urls) { next if $_ =~ /ftwsx/; # remove all lines with keyword ftwsx print OUTFILE $_,; $i++; } close (OUTFILE);