Yaroslav:
можно это уместить в 1 строчку или лучше так?
можно, пример:
my $str=\'yes\';
$str=~/^y/ ? print "yes" : ($str=~/^n/ ? print "no" : print "fuck");
только зачем? Понятнее она от этого не станет, удобства тоже особо не наблюдается, да и не намного укоротится