>perl -wMstrict -le
"my $value = 'bbb';
 my $foo;
 for ($value) {
   $foo = /aaa/ ? 'wanna'
        : /bbb/ ? 'be'
        : /ccc/ ? 'startin'
        :         'somethin'
        ;
   }
 print $foo;
"
be