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

##</code><code>##

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