my @cxx = map { /(\w+\.cxx)@@/ ? ($1) : () } ; #### print NEWFILE map { /(\w+\.cxx)@@/ ? ("$1\n") : () } ;