Your last statement:

Please read my original reply again. My suggested fix was not to repla
+ce
($x==4)
with
($x==0)

but to replace
my $x;
with
my $x=0;
[download]

I think if you carefully go back over all this, you'll see neither of us suggested:

($x==4)
with
($x==0)
[download]

I'm going to take this opportunity to suggest that we'd both do well to drop this.

It's all beginning to seem pretty silly. Don't you think? :)

Best wishes, jdporter.

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;