#!/usr/bin/perl -w
use strict;

$/="|";
print $_.<DATA>.<DATA>."\n" while (<DATA>);

=prints: 
a|b|c|
d|e|f|
g|h|i|
=cut
__DATA__
a|b|c|d|e|f|g|h|i|