perl -le '(q(x) x 100) =~ /^x(((((x{2,5})x{2,5})x{2,4})x?)x?(?{$hit++}))$/; print $hit'