perl -Mre=debug -le'$n = shift; $na = "a" x $n; print $na =~ /(a?){$n}a{$n}/'