-P オプションをつけると動作が変わるスクリプト

次のスクリプトは z をいくつ出力するか。

use strict;
use warnings;

#define sleep(times) print q/z/ x times                                         

sleep(100);
print "z\n";

[takeyuki@sunya ~]$ perl -P a.pl
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
[takeyuki@sunya ~]$ perl a.pl
z