Select Code to Download

#! /usr/bin/perl

...
        next unless /^(.*)(?:m|rn)$/;
        print "${1}m -vs- ${1}rn\n" if ++$stem{$1} == 2;
}

album -vs- alburn
am -vs- arn
...
tum -vs- turn
um -vs- urn
yam -vs- yarn