Untested.

my @data;
foreach (<FILE>) {
    push @data,  [split( /\|/, $_, 3 ) ];
}

@data = sort { $a->[1] cmp $b->[1] } @data;

foreach ( @data )
{
    my ( $id_number, $title, $date ) = @$_;
    print "ID: $id_numer\tTitle: $title\tDate: $date\n";
}
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.