Select Code to Download

$_ = 'KLEWREGREG-----REGREGEWD....-EWGREGERABCSHRE..----...XFGHWW';
/([^-.]{3})[-.]*\QXFGHWW\E/;
print $1;