Help for this page
#!/usr/bin/perl -w use strict; ... } $$ref++; }
my @trib= split /(?<=\G...)/, $_;