my @elem = ( 1..20 );
my @e = map { $_ if (s/0/./g || 1) } @elem;
print join( " ", @elem ), "\n";
__END__
1 2 3 4 5 6 7 8 9 1. 11 12 13 14 15 16 17 18 19 2.