$line =~ y/1/,/; $len = split /\b/, $line;