[ Perl FizzBuzz - Obfuscated ]

#!/usr/bin/perl
use warnings;use strict;my $OOO=1;while($OOO<=100){my $OOOO=1;my $OO0O0=1;my $OO00O=1;my $OO000=1;$OO00O=$OOO/3;$OO000=$OOO/5;if($OO00O !~ /\./){$OOOO="\x46\x69\x7a\x7a";};if($OO000 !~ /\./){$OO0O0="\x42\x75\x7a\x7a";};if($OOOO=~ /Fizz/){print "\x46\x69\x7a\x7a";};if($OO0O0=~ /Buzz/){print "\x42\x75\x7a\x7a";};if($OOOO !~ /Fizz/){if($OO0O0 !~ /Buzz/){print $OOO;};};print "\x0a";++$OOO;}