Select Code to Download

#!perl
$b=++$/x11 .<>;for$i(9..99){if(($x=$b)=~s/^(.{$i}) /$1x/s){while($x=~/
+w/g){$_="$`W$'";1while
s/w((?<=W.{10})|(?<=W.)|(?=.{9}W|W))/W/s;/W((?<= .{10})|(?<= .)|(?=.{9
+} | ))/s||$i=~/./+(print"$& $'\n")+last}}}

#!perl
$b = ++$/ x 11 . <>;                               # $/='1' (not prese
+nt in input). Slurp STDIN.
...
    }
  }
}