At various points you have if/elsif like:

if ($gram =~ /.../gi { ... }
[download]

It should be:

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