Select Code to Download

#!perl
use v5.10;
...
              (?{ f($1, $2, $3) })
              (*FAIL)
            /x;

123|4|5
12|34|5
...
1|234|5
1|23|45
1|2|345