my @out = map { my $s = $_; $s =~ s/-//; $s } @in;