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