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