Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

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

print for @results;

Select or download this
```
MUXMH-
MUXHO-
```