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

while (<DATA>) {
    chop;
    print "$_\n";
}

__DATA__
this is a test
this is another