!#/usr/bin/perl-e

$x = "foo000";
 $x++;
 print $x, "\n";