If they're paying me for 80 characters then 80 characters they'll get!

#!/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`
[download]

I mean, if we don't use our budget of 80 characters this time around, they'll just budget 70 characters for us next time! (and I'm hiding my spare double quote for an emergency, so don't ask me if you used up both of yours).