Select Code to Download

{  # create a scoping block for slurp-mode reading
   local $/ = undef;
...
       $str = substr( $str, $stoppos );
   }
}