chomp()

#!/usr/bin/perl
#chomp.cl
use strict;
use warnings;
while(my $a=<STDIN>)
{
#delete /n in every line
chomp $a;
print "your input is '$a'/n";
#exit this loop when your input is NULL
last if ($a eq '');
}