在Perl中處理JSON和XML數據，通常使用相應的模塊來實現。以下是在Perl中處理JSON和XML數據的示例：

處理JSON數據：

1. 使用JSON模塊來解析JSON數據：

use JSON;

my $json_str = '{"key": "value"}';
my $json_data = decode_json($json_str);

print $json_data->{'key'}; # 輸出：value

2. 使用JSON模塊來生成JSON數據：

use JSON;

my $data = {
    key1 => 'value1',
    key2 => 'value2'
};

my $json_str = encode_json($data);

print $json_str; # 輸出：{"key1":"value1","key2":"value2"}

處理XML數據：

1. 使用XML::LibXML模塊來解析XML數據：

use XML::LibXML;

my $xml_str = '<root><key>value</key></root>';
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($xml_str);

my $root = $doc->documentElement();
print $root->findvalue('key'); # 輸出：value

2. 使用XML::LibXML模塊來生成XML數據：

use XML::LibXML;

my $doc = XML::LibXML::Document->new('1.0', 'UTF-8');
my $root = $doc->createElement('root');
$doc->setDocumentElement($root);

my $key = $doc->createElement('key');
$key->appendText('value');
$root->appendChild($key);

print $doc->toString(); # 輸出：<root><key>value</key></root>

通過以上示例，可以看到在Perl中處理JSON和XML數據的基本操作。可以根據具體需求選擇合適的模塊來處理不同格式的數據。