$reference = ''
    if $reference !~ m/38[0-9]{8}[A-Z]{3}/;