#! perl -nlw
print "'$file'" if ($file)=/^"(([^"\\]|\\.)*)"/;