Help for this page
#!/usr/bin/perl -w use strict; ... my @wanted = split /XXX|YYY/, $string; print Dumper(@wanted);
@wanted = ( 'T', ... 'CCC', 'CC' );