#!/usr/bin/perl

    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 = <FH>)) {
        chomp $record;
        print $record;
        <STDIN>;
    }