#!/usr/bin/perl -w
use strict;

open my $dict, '<', '/usr/share/dict/words'
  or die "open failed: $!";

my %words;

while (<$dict>) {
  chomp $_;
  my $index = lc $_;
  next unless $index =~ s/(m|rn)\z//i;
  push @{$words{$index}{$1}}, $_;
}

while (my ($index, $word) = each %words) {
  print join(" / ", @{$word->{rn}}, @{$word->{m}}), "\n"
    if $word->{rn} && $word->{m};
}