if ($data =~ /^[A-Za-z0-9]+/ ) { notate('A', $+[0]); }