perl -e 'printf "%s\n", "ab\nab\n" =~ /^((?:ab$)+)/m'