Hi SriniK,

First, there's the questions that Corion already raised. I just wanted to add: inside single-quoted strings, you don't need to escape $ symbols, just escape single quotes (') and other backslashes (\) with backslashes. Note how there's an extra backslash in $wf1 in the following example:

use warnings;
use strict;

my $wf1 = '\\\\XXXXXXX\\f\$\\apps\\webapps\\auth.wsl';
my $wf2 = '\\\\XXXXXXX\\f$\\apps\\webapps\\auth.wsl';
print $wf1, "\n";
print $wf2, "\n";

use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper($wf1, $wf2);

__END__

\\XXXXXXX\f\$\apps\webapps\auth.wsl
\\XXXXXXX\f$\apps\webapps\auth.wsl
$VAR1 = "\\\\XXXXXXX\\f\\\$\\apps\\webapps\\auth.wsl";
$VAR2 = "\\\\XXXXXXX\\f\$\\apps\\webapps\\auth.wsl";
[download]

Hope this helps,
-- Hauke D