CFD123_TRE_MXD
TRD981_GHD_MXW
.
.
.


##</code><code>##

123
981

##</code><code>##

($var) =~ /^[^a-z]+([0-9]+)/;
print "$1\n";

##</code><code>##

$var =~ s/([0-9]+)//g;