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

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

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

print $test, "\n";