#!/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";
    }
}