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