#!/usr/bin/perl

use strict;
use warnings;

{
  local $/ = q{};
  
  my @txt = <DATA>;
  
  for (@txt) {
    chomp;
    print qq{*$_*\n};
  }
}

__DATA__
Text blah blah, make my point here. More text and even more continuing on along the way.

New paragraph starts here, there were 2 newlines just before I started this paragraph, so I should somehow be able
to match on that, but I can't figure out how to search for that through my array.