#!/usr/bin/perl -l
use B;

while (<>) {
  chomp;
  print B::perlstring($_) if /^[\$\w]+$/;
}