#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

my $filename = 'pm_1203774_sample.ged';

{
    my $start_char = '0';
    local $/ = "\n$start_char";

    open my $fh, '<', $filename;

    while (<$fh>) {
        chomp;
        $_ = $start_char . $_ unless $. == 1;
        $_ .= "\n" unless eof;
        print "Record #$.\n";
        print;
    }
}