You are trying to compare with an uninitialized string... Do all those if it is defined. if (defined $moh) { ..... }

That is just treating the symptoms rather than the root cause of the problem. Much simpler and safer, surely, to initialise,

my $moh = q{};
[download]

before use.

Cheers,

JohnGG