in reply to Perl Assignments Needed

How about: