Help for this page

Select Code to Download

Select or download this

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

Select or download this

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