#! /usr/bin/perl use strict ; use warnings ; $|++ ; my $data = qq{ [...] [...random stuff...]
  • headline one

    • the story

    [...random stuff...]
  • headline two

    • the next story

    [...random stuff...] } ; while ( $data =~ s{
  • (.*?)
    • .*?

    (.*?)

    }{}s ) { print "Headline: $1\nStory: $2\n\n" ; } __END__