1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6while (my $l = <DATA>) {
7    chomp $l;
8    print "$l\n";
9}
10
11__DATA__
12123456789012 This is a test
133456789012345This is another test
146789012345678This is yet another test
159012345678901Is this yet another test?
16234567890123 Yes, this is another test.
174567890123456I think this is a test.
187890123456789Now is the time.
190123456789012For all good men.
203456789012345To come to the aid party.
21678901234678 This is the tenth line.
22
23