chomp $line;
$line = qq|"$line"|;
print "$line\n";