unless ($reference =~ m/38[0-9]{8}[A-Z]{3}/) {
  $reference = "";
}