my $var1 = q{10/02/2009};
my $var2 = join q{}, split m{/}, $var1;

##</code><code>##

my $var1 = q{10/02/2009};
( my $var2 = $var1 ) =~ tr{/}{}d;