foreach my $i ( @chunks ) {
    next if $i !~ m/ ^
                     (?!\*)
                     (?!(?!\d)\w)
                     (?!\d+\.)
                   /x;

    print $i;
}
[download]