if ( $reference !~ /^\'\w+\d+\'$/ ) {
    # ...
  }