#!/usr/bin/perl my $text2 = 'db1$/SQL/GEMINI/StoredProcs/pboValidateClientRefNo_ClientID.sql'; $text2 =~ s{\Q$}{}g; print "Content-type: text/html\n\n"; print "

$text2

\n";