open FH,"./input.txt";

while(<FH>) {
    @arr = ($_ =~ m/.{1,8}/g);
    print join "***\n",@arr;
}