in reply to Pattern mattching

Thanks Everyone for the solution.

In Section Seekers of Perl Wisdom