my @array = $string =~ /(.{1,120})/g;