Sanity thru Perl Geeking

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!"';

• Mini Sitemap:

• Post to Journal
• Downloads

• LJ Gift Shop
• Safety Tips

• Support & FAQs
• Be a Support Volunteer

• Feedback & Contact Us
• Report Abuse

• Site News
• More... (Full Sitemap)