#! /usr/bin/perl -l
while (<>) {
  chomp;
  print '"'.quotemeta.'"' if /^[\$\w]+$/;
}

##</code><code>##

#! /usr/bin/perl -ln
print '"'.quotemeta.'"' if /^[\$\w]+$/;