if ($data =~ /^([\d\w]+)/ ) { notate('A', length($1)); }