$ perl -wE'$_="image001";say++$_'
image002