an alternative is unless which is the contrary to if

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

If possible, I prefer unless way over !~ because I think it is better readable since I sometimes miss !~ at the first fast view to get the structure of a program