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

##</code><code>##

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