Select Code to Download

$input = ':xxx xxxxx = #xxx :xxx @rndletters @rndletters';

@input2arr = split / /, $input;

my @names = map {$i > 6 ? push(@names,$input2arr[$i]) : $i++ } @input2
+arr;

my $i = 0;
my $input = ':xxx xxxxx = #xxx :xxx @rndletters @rndletters';
...
  if ($i > 6) { push (@names, $str); }
  $i++;
}