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