$data = qq/{"message":"This is the message.","sendAs":"sender"}/;
( $message, $sender ) = $data =~ /\{"message":("[^"]"),"sendAs":"([^"])"\}/;