use strict;
use warnings;

my $test = 'C:\first\second';

print $test, "\n";
$test =~ tr,\\,/,;  

    #$test =~ tr [\\] [/]; 
    #$test =~ tr <\\> </>;
    #$test =~ tr .\\./.;

print $test, "\n";