sub i{$_=<>;chop;if(/^\d{1,4}$/){return sprintf("%04d",$_)}print"!\n";&i}$c=i;$d=i;for($c..$d){$_="bar$_.jpg";print"$_\n"unless(-e)}