>>100
んじゃこんなんで
$date =~ s/([0-9]+)\/([0-9]{2})\/([0-9]{2}).*/\1\/\2\/\3/;