use warnings;
use strict;
my $test;
my @words;
open(INFO,"<","testing.pl")||die"Can't open file:$!\n";
chomp (@words=<INFO>);
close(INFO);

    local $/ = ".EOM\n\n";
    while ( my $record = @words) {
	print $record;
            }