I use the following to strip off only the beginning & ending quotes (embedded may valid) on just the DETAIL records, not the Header.

    if ($StRec eq $Dtl) {  # For ALL detail records
      $St =~ s/^\"//;      # Remove ONLY the LEADING quote
      $St =~ s/\"$//;      # Remove ONLY the TRAILING quote
    }
[download]

Hope this helps.