my $d = "123456789"; $d = join "-", $d =~ /(\d{1,2})/g;