open(FData,"< data") || die("Cannot Open File");
my @replace=<FData>;
for my $replace (@replace) {
    $s =~ s/$replace->[0]/$replace->[1]/gee;
}