poetry po·e·try /ˈpəʊɪtri/
noun [mass noun]
    1 while --$c and $p = 1+ index $s, '!', $p;