#!/usr/bin/perl                                                                                                              
$fname = $ARGV[0];
open(FHANDLE, $fname) or die("Error opening file.\n");<br>
while(<FHANDLE>)
{
        $_ =~ s/\$([A-Z]+)/\$$1/g;
        print $_;
}
close(FHANDLE);