SYNOPSIS

 my $m=Opis::Markup->new();
 my $m=Opis::Markup->new(convert=>\&Encode::decode_utf8);
 while( defined( my $line=readline ) ) {
   if( my $paragraph=$m->($line) ) {
     push @content, $paragraph;
   }
 }
 if( my $paragraph=$m->('') ) {
   push @content, $paragraph;
 }