perl -wE "say for '1' .. q['']"