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