my @vars = grep length, split /(..?)/, $str;