my $string = "abc"; print ++$string, "\n";