Help for this page

Select Code to Download

Select or download this

$ perl -Mstrict -Mwarnings -E '
    my @list = qw{12 123 1234 12345 123456 1234567 234 2345 23456};
...
234-
234-5
234-56