#!/usr/bin/perl

use strict;
use warnings;

my @words = <DATA>;
chomp @words;

while ( @words >= 2 ) {
    my $model = my $regex = shift @words;
    if ( $regex =~ s/(.*?)[ab](.*?)/$1\[ab\]$2/g ) {
        my @hits = grep /^$regex$/, @words;
        if ( @hits ) {
            print join( " ", $model, "matches", @hits, "using", $regex, "\n" );
        }
    }
}

__DATA__
lama
lamb