perl -e '$char = "a"; print $char++, $/ for 1..20'
perl -e '$char = "a0"; print $char++, $/ for 1..20'
perl -e '$char = "a0a"; print $char++, $/ for 1..20'