my $dt = '11/29/2001';
$dt =~ s|\/|\\/|g;
print qq($dt);