PDQ in Perl 5

Pdq