Entity Cleaner

#!/usr/bin/perl
my $inputfile = @ARGV[0];
my @out;
my $linecounter=0;
print "Cleaning HTML entities from $inputfile...\n";
open (FILETOCLEAN, $inputfile) or die "Cannot open $inputfile: $!\n";
while (<FILETOCLEAN>) {
    chomp; #grab a line
    $out[$linecounter] = $_;
    $out[$linecounter] =~ s/&lt;/</g;
    $out[$linecounter] =~ s/&gt;/>/g;
    $out[$linecounter] =~ s/&quot;/"/g;
    ++$linecounter;
}
close (FILETOCLEAN); #close the file
my $outputfile;
$outputfile=$inputfile;
open (CLEANFILE, ">$outputfile");
foreach my $line (@out) {
    print CLEANFILE "$line\n";
    ++$linecounter;
}
print "Cleaned $inputfile.\n";
close (CLEANFILE);