$text=~/([A-Z]{2,5}\d{5})/ or die;
 # parenthesis is for "remembering" what we matched, 
 # we can get it with $1 later..
print "got $1";


##</code><code>##

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