predolagam testvash pod win32, kudeto e neobhodim "true autoflush",
taka che da nqma "output caching":

#~
$|++;

@_=`ping -n 1 clubs.dir.bg`;
print time,"\t",grep{ /^reply/i }@_;

sleep 1;

@_=`ping -n 1 clubs.dir.bg`;
print time,"\t",grep{ /^reply/i }@_;

__END__

STDOUT:

1112902640 Reply from 194.145.63.30: bytes=32 time=12ms TTL=59
1112902641 Reply from 194.145.63.30: bytes=32 time=15ms TTL=59
#~

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~