#!/usr/local/bin/perl -w
use strict;
$|++;

my $r;
while($r=<DATA>) {
	print "hi$r";
	if($r eq "\n") {
		last;
	}
	print "bye$r\n";
}

__DATA__
1
2
3

4


##</code><code>##

C:\WINDOWS\Desktop>perl test_last.pl
hi1
bye1

hi2
bye2

hi3
bye3

hi

C:\WINDOWS\Desktop>

##</code><code>##

#!/usr/local/bin/perl -w
use strict;
$|++;

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

__DATA__
1
2
3
4