Select Code to Download

#!/usr/bin/env perl -l

...
);

/$re/ && $despatch{$2}->($1) for @data;

found1 with digits: 12
found2 with digits: 34
found3 with digits: 56
found1 with digits: 78