Select Code to Download

  DB<44> sub func { my ($m)=@_; return "Yes n=$m" if 'oXoXoXoX' =~ /(?
+:.X){$m}/ }

...
  DB<48> p func(5)

  DB<49>