my $A =~ s/[A-Z]/\|/g;
     my @values = split('\|',$A);
     map { if ($_ ne "" ) {print "[$_]\n";} } @values;