#! perl -slw
use strict;

while( my $line = <DATA> . <DATA> ) {
    print "'$line'";
}

__DATA__
1   2   3
    4   5   6
1   2   3
    4   5   6
1   2   3
    4   5   6
1   2   3
    4   5   6
1   2   3
    4   5   6
1   2   3
    4   5   6
1   2   3
    4   5   6
an  odd  record