#!/usr/bin/perl -w
use strict;

my @files_to_process= (
                        {data=>"The quick\n" .
                               "brown fox\n" .
                               "ran over\n" .
                               "the purple\n" .
                               "witch. So\n".
                               "there!"}
                      );

foreach my $record (@files_to_process) {
   while ($record->{data} =~/(.*\n|.+$)/g) {
        chomp(my $line = $1);
        print "[$line]\n";
    }
}