It's the following line:

    ($p1,$p2,$p3) = /$match/;
[download]

This matches against $_, which doesn't change between calls to file_eval. Since you have already matched, you could just do:

    ($p1, $p2, $p3) = ($1, $2, $3);
[download]

Abigail