be sure call to copy includes $rec{'company'}

can't remember where we are in this!

call could have something like
... company=$rec{'company'} ...

then in the form or routine that copies to other db, have the following

if ($in{'company'}) {
$in{'company'} = s/zzzzz/&/;# or whatever i said before!
$rec{'company'}= $in{'company'};
)