$ perl -E 'my $x = "001"; $x += 1; say $x'
2

$ perl -E 'my $x = "001"; $x++; say $x'
002