#!/usr/bin/env perl -l

use strict;
use warnings;

my @strings = qw{MUXmh123 MUXho124 999999};

my @results = map { /(\D+)/ ? "\U$1-" : () } @strings;

print for @results;