if($reference !~ m/38[0-9]{8}[A-Z]{3}/){
   ...
}