(my $fn = $Buffer[1]) =~ s~^\s*"([^"]*).*$~$1~;