Select Code to Download

perl -wMstrict -e "my $text = qq(start\nrats\n);
$text = join($1, grep(/[^start]/, split(/(\n)/, $text)));
...
{

}