in reply to Tear it apart...select()
select changes the current filehandle, and returns the old one. So that construct changes the current filehandle to STDERR, unbuffers it (with $|++), then selects the 0th element of that list -- which happens to be the return value of the select, which is the original filehandle. That filehandle is then selected.
perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'
In Section
Seekers of Perl Wisdom