Select Code to Download

$ cat > fred
abc
...
$ cat -vet fred
abc$
def $

$ perl -E 'my $x = "  xyz  "; say "|$_|" for map /^\s*(.+)$/, $x'
|xyz  |
...

$ perl -E 'my $x = "  xyz  "; say "|$_|" for map /^\s*(.+?)\s*$/, $x'
|xyz|