RosettaCodeData/Task/Increment-a-numerical-string/Perl/increment-a-numerical-string.pl

my $s = "12345";
$s++;