Subtracting Stringified Negative Numbers

Select or download this

my $n1 = '-933';
my $n2 = '-1039';

my $dif = $n1 - $n2;

Select or download this

$VAR1 = '-933';
$VAR1 = '-1039';

Select or download this

Argument "^\-933" isn't numeric in subtraction (-) at mycode.pl line 1
+15.
Argument "^\-1039" isn't numeric in subtraction (-) at mycode.pl line 
+115.

Select or download this

my $some_string = "0,-933";
my ($id1,$n1) = split(",",$some_string);

Select or download this

This is perl, v5.8.5 built for i386-linux-thread-multi

Select Code to Download