Using $0 file pattern number, just like the original

($r,$i,$l,@ARGV)=@ARGV[1,2,2,0];(/$r/and$i='.'or++$i<=$l)&&print while
+<>
[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]