my @strings = ( q|a ab abc abcd abcde|, q|abcde abcd abc ab a|, q|abcde a abc ab abcd|, q|yyy xzz wwww|, q|one two 'three'|, );