perl -e "for $i (1..9){print( 'Next' ), next if $i == 5;print $i}" 1234Next6789