my $newval;
unless ( ($newval) = $line =~ /(\w{3})"$/ ) {
   # handle failure to get essential value
}