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