use warnings;
use strict;

my $old = quotemeta "welcome|to|chennai";
my $new = "Capital of karnataka|is|bangalore";

my $base = ();
my @base = ();
@base = <DATA>;
chomp @base;

foreach $base (@base) {
    if ( $base =~ /$old/ ) {
        $base =~ s/$old/$new/gi;
        print("Replaced!\n");
    }
    print @base;
}

__DATA__
welcome|to|chennai