#!d:\perl.exe -w use strict; use warnings; my $oldfile = $ARGV[0]; my $newfile = $oldfile . ".clean.txt"; open (OLDFILE, "$oldfile") || die "Could not open $oldfile"; open (NEWFILE, ">$newfile") || die "Could not open $newfile"; while () { my @record = split /(["<",">"])/; print NEWFILE "@record[0...4,]"; print NEWFILE "$record[6]\n"; } close OLDFILE; close NEWFILE;