Help for this page

Select Code to Download

Select or download this

$string="ctaacxxxxxxxxxxxxxxxxxxxxxxx";
$_=$string;
...
print "\n$1,$2,$3,$4";
($branch,$pyrich)=($1,$4);
print "\n$branch$pyrich";

Select or download this

ctaac,a,c,xxxxxxxxxxxxxxxxxxxxxxx
ctaacxxxxxxxxxxxxxxxxxxxxxxx