Perl

There's More Than One Way To Do It;