Select Code to Download

local $/ = "\n}\n";
while (<>) {
...
   /$3$2$1/xsm;
   print;
}

local $/ = "\n}\n";
while (<>) {
...
   /$2$1/xm;
   print;
}