in reply to perl one liner
Try to use the following
($var2=$var1) =~ s/\///g; [download]
The great pleasure in my life is doing what people say you cannot do.