Select Code to Download

$string =~ s/\d{2} (\W) \d{2} \1 \d{2}/$1-$2-$3/x

$string =~ tr!/!-!;