Help for this page

Select Code to Download


  1. or download this
    # (not using 'say' because I wanted to try it on old perl versions)
perl -e 'printf "%s\n", "ab\nab\n" =~ /^ab$ab$/m'
...
perl -e 'printf "%s\n", "ab\nab\n" =~ /^(ab$ab)$/m'
perl -e 'printf "%s\n", "ab\nab\n" =~ /^(ab)$ab$/m'
perl -e 'printf "%s\n", "ab\nab\n" =~ /^(a)b$ab$/m'
  2. or download this
    perl -e 'printf "%s\n", "ab\nab\n" =~ /^(ab$a)b$/m'
perl -e 'printf "%s\n", "ab\nab\n" =~ /^(ab$)ab$/m'
...
perl -e 'printf "%s\n", "ab\nab\n" =~ /^(ab$){2}/m'
perl -e 'printf "%s\n", "ab\nab\n" =~ /(ab$){2}/m'
perl -e 'printf "%s\n", "ab\nab\n" =~ /(?^:^(?^m:(ab$){2}))/m'
  3. or download this
    perl -e 'printf "%s\n", "ab\nab\n" =~ /^((?:ab$)+)/m'