{ gsub("[^[:digit:]]", ""); part1 += substr($0, 1, 1) substr($0, length, 1); } END { print part1; }