Select Code to Download

use strict;
use warnings;
...

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

C:\@Work\Perl\monks\dilpane>perl ubar_in_qqted_n.pl
line 39: 1_334 1334
...
line 43: 2 1335
line 45: Unequal
line 46: 2 1335