foreach my $ip (@ip) { $ip =~ s/\s+//;