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