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

my $dif = $n1 - $n2;

##</code><code>##

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


##</code><code>##

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

##</code><code>##

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

##</code><code>##

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