try this:

eval "\$var =~ s/$lhs/$rhs/";

update:fixed typo