use Modern::Perl;

my $res;
while ($res = <DATA>) {
    chomp $res;
    say $res . "***";
}

__DATA__
1234
qwer
asdf
zxcv