if ($char =~ /b|i|o/) {
          print "bio ";
          &{$char};
        }