my @numbers = split /,/, substr($lineX,6,-1);