Perl remove multiple lines from file