my @patterns = slurp( 'file' );
my %dispatch; @dispatch{ @patterns } = ( ??? );
my $regex = '(', join( ')|(', @patterns ) . ')';
while( my $data = <DATA> ) {
    if( $data =~ $regex ) {
        $dispatch{ $patterns[ $#- ] }->( $1 );
    }
}