in reply to Re^2: Remove $
in thread Remove $

#!/usr/bin/perl

my $text2 = 'db1$/SQL/GEMINI/StoredProcs/pboValidateClientRefNo_Client
+ID.sql';

# chr(36) = $
# http://perldoc.perl.org/functions/chr.html
# It's another way to represent $
# my $hmm = chr(36);
my $hmm = '$';

# \Q  Disable pattern metacharacters until \E
# http://perldoc.perl.org/perlreref.html#ESCAPE-SEQUENCES
# \Q makes it work =D
$text2 =~ s{\Q$hmm}{}g;

print "Content-type: text/html\n\n";
print "<html><h1>$text2</h1></html>\n";

[download]
same thing as
#!/usr/bin/perl

my $text2 = 'db1$/SQL/GEMINI/StoredProcs/pboValidateClientRefNo_Client
+ID.sql';

$text2 =~ s{\Q$}{}g;

print "Content-type: text/html\n\n";
print "<html><h1>$text2</h1></html>\n";

[download]
Is that good enough?

*Edited

In Section Seekers of Perl Wisdom