perl regex help solved

Hi there I have a list of mac addresses that are in this format

0100237D2136XX
0118A905599EXX
0118A9054E15XX
010003BAF1F3XX
0118A905599EXX
0100237D6522XX
010C53BAF1F3XX
010003BAF1F3XX
010C53BAF1F3XX

The 01 is at the beginning has been put on by my software, but the rest is the mac address

I want to use a perl regex to pull out only those that have the following first 8 characters, discarding the rest

0100237D
0118A905

Ive tried many different combinations but just cant get ti to work, am i doing something silly here?

        
        if ($MAC =~ /^01[01]{1}[08]{1}[2A]{1}[39]{1}[70]{1}[D5]{1}.*/ ) {
                print "$MAC\n";
        }

im probably getting a little confused with the {1} bit somewhere, could somebody advise me where im going wrong here

Cheers

---------- Post updated at 05:50 AM ---------- Previous update was at 05:48 AM ----------

Sorry, Please ignore, i managed to make a silly typo in my script

sorry about that

---------- Post updated at 05:51 AM ---------- Previous update was at 05:50 AM ----------

Sorry, Please ignore, i managed to make a silly typo in my script

sorry about that (the regex works just fine)