Select Code to Download

>perl -le"'abc1def2' =~ /(?:([a-z])(?{ print $^N }))+2/"
a
...
d
e
f

use strict;
use warnings;
...
   or die("No solution\n");

print( join('-', @list), "\n" );  # abd-a-abc

...

...
die("No solution\n") if !@list;

print("$_\n") for @list;

abd-a-a-bc
abd-a-abc