my $date = "2001-03-28";
(my $d2 = $date) =~ tr/-//d;