my @list = $str =~ /(..?)/g;