while ( $data =~ m{
  • (.*?)
    • \n\s*
    \n\s*

    (.*?)

    }g )