#!/usr/local/bin/perl -w
use strict;

my $line;

open (FH, "< ./kevtest.dat") || die "Couldn't open ./kevtest.dat: $!";

#Read in all the lines
my @lines = <FH>;
chomp @lines;

for $line (@lines) {
    $line =~ s/\"//g;
   print STDERR "$line\n";
}

#Close the file
close FH  || die "Couldn't ./fred.dat\n";