@in = qw{a b c -d -e};
@out = map { s/-//; $_ } @in;