for each $field
{ 
  $field =~ s/^"//;
}