#!/usr/bin/perl -w

use strict;

#my @yahoo = map { split(/\n/, $_) } <DATA>;


my @yahoo = <DATA>;

while (@yahoo) {
   chomp;
   print $_;
}

__END__
hi nus mine
hi no mine
###
hi on mine
## hi nus mine
hi hi hi
hi
hi
hi