subtype 'DNAString'
  => as Str
  => where { $_ && $_=~/^[AGCTN]+$/i}
  => message {"Not a DNA string: only AGCT or N allowed and cannot be empty"};