Pi to 1000 digits: 77 strokes, by tybalt89 with a minor change by ton:

($c,@0)=map P|($c=$c%($d=10+20*$?).0+$_*$?)/$d,@0while$?-=@0[0,1e3]=3;
+print@0
[download]

78 strokes by ton:

print!s!\w+!$\=($z=$&.0+$?--*$\)/++($b=2*$?||239)|0;$z%$b!egfor(-48x65
+536)x1e3
[download]

Both can be extended for more digits