Help for this page
sub do_dni { my ( $filename ) = @_; ... $sub_ref->($fn) if ( $fn =~ /$pattern/ ); } }
my @dispatch = ( { pattern => qr/DNI/, coderef => \&do_dni, }, ... if ( $fn =~ $item->{pattern} ); } }