Select Code to Download

$x = 1; ++$x; # produces 2 or "2" (transparent which)
$x = "1"; ++$x; # the same
$x = "A"; ++$x; # produces B

$char =~ s/^(0)+//;