my $re = qr/"(.*?)" "(((\\")|[^"])*)"/;
my %fsr_hash;
while (<FSR>) {
    if (/$re/) { $fsr_hash{$1} = $2 }
}