kabel@linux:~> perl
my $num = "1hiho";
print ++ $num, $/;
2
kabel@linux:~>