print "\nSearch Pattern: ";
chomp(my $pattern = <>);
$pattern = uc quotemeta $pattern;

print "\nReplacement Pattern: ";
chomp(my $replacement = <>);

print "\nInput: ";
while (<>) {
   chomp;
   last unless $_;
   s/$pattern/$replacement/ig;
   print;
   print "\nInput: ";
}