my @vars = $str =~ /..?/g;