#! /usr/bin/perl
use strict;
use warnings;


{
    local $/ = "/>";
    while ( <> ) {
        # Trennmarker "--\n", Nr. gelesener Datensatz, Datensatz
        printf "--\n%3d: %s", $., $_;
    }
}