Select Code to Download

my $str = "123456789";
$str = reverse $str;
$str =~ s/(?<=\d)(?=(\d\d)+$)/-/g;
$str = reverse $str;
print $str, "\n";