foreach (@newlist) { $_ =~ s/[.](.*)/($section) }