Select Code to Download

use strict;
use warnings;
...
($_ = $before) =~ s/^\s+|\s+$//g;
print ">$before<\n";
print "|$_|\n";

>   some text   <
|some text|