Q:\>perl -we "$s='corion'; for (1..1000) {$s++}; print $s"
corkaz