Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (17 sloc) 469 Bytes
#!/usr/bin/env perl
use strict; use warnings;
while (my $l = <DATA>) {
chomp $l;
print "$l\n";
}
__DATA__
123456789012 This is a test
3456789012345This is another test
6789012345678This is yet another test
9012345678901Is this yet another test?
234567890123 Yes, this is another test.
4567890123456I think this is a test.
7890123456789Now is the time.
0123456789012For all good men.
3456789012345To come to the aid party.
678901234678 This is the tenth line.
Something went wrong with that request. Please try again.