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
[download]

This gives:

sdjh
sfhg
srig
srgsrigh.asdigf
wsergh
[download]

A . was left there unremoved, if that's the bug you are looking for (As it cannot handle empty record.)