Help for this page
#!/usr/bin/perl ... /$1$2/xsmig;# print "\$string is \n$string \n";
P5º2 CCC
P5º2 AAABBBCCC