Select Code to Download

use strict;
use warnings;
...
    s/($match)/$replace{lc $1}/eig;
    print;
}

I have a flibble with 50,000 wobbles of find and replace string.
For example
...
Now i want to process the flibble with input flibble.
I have tried with the usual method, it takes more than 1 hour.
Please advise.