#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

my $filename = 'pm_1196493_paragraph_mode_test_data.txt';

open my $z, '-|', "cat $filename";

{
    local $/ = '';

    while (<$z>) {
        chomp;
        print '--- One Block ---';
        print;
    }
}