Select Code to Download

my $at = $-[0];
my $matched = substr($test, $at, $+[0]-$at);
warn(Matched "$matched" at $at\n");