$pi .= $predigit;    # <-- missing line

print $pi =~ s/^03/3./r;