use strict;
use warnings;

my ($a, $b) = ("1_334", 1334);
printf "line %ld: $a $b \n", __LINE__;

$a += 1;
$b += 1;
printf "line %ld: $a $b \n", __LINE__;

printf "line %ld: Unequal \n", __LINE__ if ($a != $b);
printf "line %ld: $a $b \n", __LINE__;