Help for this page
#!/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