open (FILE, "moviesPERL.txt");
open (OUTFILE, ">moviesPERLremovedQuotes2.txt");

$n = 0;

while (<FILE>)
{
   @record = split (/\t/, $_);

   for ($i = 0; $i < 5; $i++)
   {
      if ($record[$i] =~ /^\"/)
      {
         $record[$i] =~ s/^\"//;
         print "$record[$i] \n";  $n++;
      }
      if ($record[$i] =~ /\"$/)
      {
         $record[$i] =~ s/\"$//;
         print "$record[$i] \n"; $n++;
      }
      if ($record[$i] =~ /\"\"/)
      {
         $record[$i] =~ s/\"\"/\"/g; $n++; $n++;
         print "$record[$i] \n";
      } 
   }

   $newRecord = join ("\t", @record);

   print OUTFILE $newRecord;
}

print "\nTotal replacements of \" character: $n \n\n";

close FILE;
close OUTFILE;