foreach $machine (@machinelist) { $machine =~ s///; @allmachines=(@allmachines,$machine); }