Select Code to Download

$ perl -Mstrict -Mwarnings -e '
> my $a="  456 789 123 456 789  ";
...
456
456 789 123 456 789
5