Select Code to Download

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

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