> ########################################################## > #!/usr/bin/perl > my ($reprt); > $reprt= "\Directions\unit\progr\sourcsql"; > > print $reprt."\n"; > > # $reprt =~ s/\\/\\\\/g; > $reprt =~ s/[\\]/\./g; > > print $reprt."\n";
my $reprt= '\Directions\unit\progr\sourcsql'; print $reprt."\n"; $reprt =~ s/[\\]/./g; print $reprt."\n"; That should work. Note the use of ''. Luke -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]