my $str = '11/29/2001';
$str =~ s{/}{\\/}g;
print $str, "\n";