pasasaka

$s = -123;

$c = @v = $s =~ /(.)/g;
$v[1] *= -1, shift @v if $v[0] eq '-';
$c += $_ for @v;
$c += $s;

print $c;