c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub flexi {
   my ($str) = @_;
   ;;
   my ($string, $special) = map { uc, scalar reverse } $str;
   ;;
   return wantarray ? ($string, $special)
                    : $string
                    ;
   }
 ;;
 my $string1 = flexi('foobar');
 dd $string1;
 ;;
 my ($string2, $special) = flexi('foobar');
 dd $string2, $special;
"
"FOOBAR"

("FOOBAR", "raboof")