note blazar <p>No real advantage, but for completeness:</p> <c> my ($bar) = map +(0,'low','med','high')[tr/I//] || 'drat', $foo; # or my ($bar) = map qw(0 low med high)[tr/I//] || 'drat', $foo; </c> <p>[doc://qw] helps, and "0" is false...</p> <div class="pmsig"><div class="pmsig-409850"> <small><c>-- </c><br/> <strike>If you can't understand the [wp://incipit], then please check the <strong>[http://blazar.tumblr.com/post/17639246|IPB Campaign]</strong>.</strike></small> </div></div> 724306 724402