$string =~ s/^($regexp)/$replacements{$1}/gm;