perl -e "$x = 'I000199'; print ++$x"