$line =~ s/($pattern)/$subst{$1}/gi;