use strict;
use warnings;

my ($a, $b) = ("1_334", 1334);

$a += 1;
$b += 1;
print "$a $b\n";

print "Unequal\n" if ($a != $b);
print "$a $b\n";

##</code><code>##

2 1335
Argument "1_334" isn't numeric in addition (+) at noname.pl line 6.
Unequal
2 1335