Select Code to Download

s/./ do_smth( $& ) /eg;
m/.(?{ do_smth( $& ); })(*FAIL)/;
do_smth( $& ) while m/./g;

#!/usr/bin/perl

...
    (?{ print "\n" })
    (*FAIL)
    /x;

# The need of clear borders of the elements:
## Without borders (wrong):
...
    [zz-3]  [zz-abc]   [zz-zz]
    [79-3]  [79-abc]   [79-zz]
   [444-3] [444-abc]  [444-zz]

#!/usr/bin/perl

...
    (*FAIL)
    /x;
print "\n";

for my (...) is experimental at <...>
# With 'undef's:
...
Without 'undef's -- no stepping out of an array:
[1-2-3][abc-zz-79]
[1-2-3][abc-zz-79]