$Prefix='DOC_';
if ($line =~ /$Prefix[a-zA-Z]*[0-9]*-*[0-9a-z]{3}/)