Select Code to Download

#!/tmp/bleadperl/bin/perl -w 

...
s{($re)}{$1\n}xg;

print;

$re = qr{
  (??{ '\b\w{1,' . ($len - ($+[0] - $-[0])) . '}\b' })
...
}x;

s{($re+)(?%done)}{$1\n}xg;

$re = qr{
  (??{ '\b\w{1,' . ($len - ($+[0] - $-[0])) . '}\b' })
...
}x;

s{($re+)}{$1\n}xg;

while (1)
  do_pattern($re);
  if ($seen_qu_semi) { last }
}

$re = qr{
  (??{ '\b\w{1,' . ($len - ($+[0] - $-[0])) . '}\b' })
...
    )+
  )
}{$1\n}xg;