perl -we 'for (1..127) { print "ABC", chr}; print $/'