#!/usr/bin/perl -w

use strict;

my $date = '11/29/2001';

print "DATE (before): $date\n";

$date =~ s/\//\\\//g;

print "DATE (after): $date\n";