$var =~ m/ 
  \A    ## beginning of string
  \d{2} ## two digit characters
/x