Cool/useful short examples of Perl?

[Denny]

On Mon, 2011-05-30 at 15:36 +0100, David Precious wrote:
>     if (! Email::Valid->address($email_address) ) {

Something wrong with 'unless'?

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 490 bytes
Desc: This is a digitally signed message part
Url : http://london.pm.org/pipermail/london.pm/attachments/20110530/8c77f0b7/attachment-0001.pgp