The trick is to assign it first, and then substitute it only on the second variable.

$ perl -E '$var1 = "10/02/2009"; ($var2 = $var1) =~ s{/}{}g; say $var2
+'
10022009
[download]