Wabewalker

In summary:

#!/usr/bin/perl -l
@m = qw(mi cro soft);
@y = qw(ya hoo);

while (@m && @y) {
  $s = shift @{rand > .5 ? \@m : \@y};
  push @r, $s if !@r || rand > .5
}

$" = "";
print "\u@r!"';