Select Code to Download

$text='ADABCDE6789023424';
$text=~/([A-Z]{2,5}\d{5})/ or die;
print $1; # will print 'DE67890'