foreach $key (keys %method)
      {
       $message_ref->[0]=~s/$key/$method{$key}/;
      }