Select Code to Download

my @tests = ( '', qw(
    2|3|||||
...
'|2|'      :()(2)()
'|2|3'     :()(2)(3)
'|2|3|'    :()(2)(3)()

    my @fields = split /\|/, $string.'|x'; pop @fields;