use utf8;
while (chomp($line = <>)){
$line =~ s/char/replacement/g;
}