[petethered]

Simple Perl Code

  my $i;
  my $fizz = 3;
  my $buzz = 5;
  for ($i = 1; $i <= 100; $i++) {
    if ($i ne $fizz && $i ne $buzz) {
      print "$i\n";
      next;
    }
    if ($i eq $fizz) {
      print "fizz";
      $fizz += 3;
    }
    if ($i eq $buzz) {
      print "buzz";
      $buzz += 5;
    }
    print "\n";
  }

Edit for formatting

[ukoki]

or in stupidly terse Ruby... f,b=3,5;(1..100).each{|i|s='';(s,f='Fizz',3)if(f-=1)==0;(s,b=s+'Buzz',5)if(b-=1)==0;puts(s==''?i:s)}