#!/usr/bin/perl
%couples = (
    Fred=>"Wilma",
    Barney=>"Betty",
    George=>"Jane",
    Homer=>"Marge",
    Peter=>"Lois"
);
print`perl -lne'tr! ",!!d and s!=>(?=[A-Z])! is married to ! and print' $0|sort`