#!/usr/bin/perl
use warnings;
use strict;

while (my $text = <DATA>) {
    $text =~ s/hello$//g;
    print $text; 
}
__DATA__
hello
world