Select Code to Download

print map {( $_ =~ /^-?\d+$/ ? $_ * 2 : '-' ),"\n"} @array;

print map {( $_ =~ /^-?(\d*\.)?\d+$/ ? $_ * 2 : '-' ),"\n"} @array;