@vals = $in =~ /(..)/sg;