「世界のナベアツ」スクリプト

１から順にカウントし、3の倍数または3がつく数のときだけ
アホになるスクリプトを書いてみた。
オモローd(-o-)b

#!/usr/local/bin/perl -w

#sekai-no nabeatsu.

use strict;

my $num = 0;
while($num < 100000){
    ++$num;
    if($num % 3 == 0){
	print STDOUT "!!!!$num!!!!\n";
    }elsif($num =~ /3/){
	print STDOUT "!!!!$num!!!!\n";
    }else{
	print STDOUT "$num\n";
    }
    sleep(1);
}
exit;