#!/usr/bin/perl
use warnings; 
use strict; 
my $escaping_file = $ARGV[0];
open( my $filehandle, "<" , "$escaping_file" ) || die "failed : $!";
while (<$filehandle>) {
    if ($_ =~ /^\$?\w+\$+\w+\$?$/g) {
    s/\$/\\\$/g ;
    #$escaped_wquotes = "".$_."" ;
    #$escaped_wquotes = "\"$_\"" ;
    $escaped_wquotes = qq("$_") ;
    print "$escaped_wquotes";
    }
}

##</code><code>##

[casper@casperbox$ ./check_escapes /tmp/new_list
"bc\$stp
""soc\$ny
""icon\$test
""btec\$stp
""ec\$stp2
""bos\$nyc
""tec\$live5
""\$foo\$foo\$
""\$foo\$baz
""foo\$bad\$

##</code><code>##

"bc\$stp"
"soc\$ny"
"icon\$test"
"btec\$stp"
"ec\$stp2"
"bos\$nyc"
"tec\$live5"
"\$foo\$foo\$"
"\$foo\$baz"
"foo\$bad\$"