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

@input2arr = split / /, $input;

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