$search=join '|', map quotemeta,keys %conv;
while (<>) {
    s/($search)/$conv{$1}/geo;
}