use strict;
    use warnings;

#    my $file = shift || die "No file, dummy!";
#    open FH, "<", $file or die "Could not open ($file) for reading: $!";
    local $/ = "\n.\n";

    while (defined (my $record = <DATA>)) {
        chomp $record;
        print $record;
#        <STDIN>;
    }

__DATA__
sdjh
sfhg
srig
srgsrigh
.
.
.
asdigf
wsergh