in reply to Empty STDIN does not exit while loop

chomp returns the number of characters removed. If you entered the "empty string" by pressing <Enter> , then chomp removes the newline and returns 1.

Using chomp in a while condition is usually not what you want. It'd skip the last line of a file if it didn't end in a newline.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In Section Seekers of Perl Wisdom