print "@word\n";

##</code><code>##

while( my $line = <WORD> ){
   print $_;
}