The !~ binding returns true for non-matches,

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

or to keep the important part first and the match positive,

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