while ($hex =~ /(?P(2004|04)(?P..)(?P..)(?P..)(?P.*?)1003..)/g) {