http://www.perlmonks.org?node_id=440770


in reply to Lost JJC and XML

At various points you have if/elsif like: 

if ($gram =~ /.../gi { ... }

[download]

It should be: 

if ($gram =~ /.../gi) { ... }

[download]

Regards,

PN5

In Section Seekers of Perl Wisdom