#! /usr/local/bin/perl
while (<>)
{
$line = $1;
print "$line\n";
}
