Perl代码片段：
my $export = $doc;
$export =~ s:\.odt:\.pdf:;
这将如何被写入清洁？ 不是简单的什么900种方式来写， TMTOWTDI 。
Answer 1:
my ($export = $doc) =~ s{\.odt}{\.pdf};
UPDATE：该解决方案不能编译（自我提醒：SO发布之前的测试）。 相反，你可以说
(my $export = $doc) =~ s{\.odt}{\.pdf};
Answer 2:
我去[.]匹配文字句：
$export ~= s{[.]odt$}{.pdf};
请注意，只有上半年s///调用是一个正则表达式。 更换是正常的字符串，并且不需要一个周期进行转义。
你可能要代表文件作为对象，而不是字符串，虽然与路径::类 。
Answer 3:
我％EXT =（ 'ODT'=> 'PDF'，等等...）; （我的$出口= $ DOC）= 382 4 - {（$分机{$ 1} || $ 1 ''}）}例如，{（[^。] +）$。};
文章来源: Cleanup Perl code: my $export = $doc; $export =~ s:\\.odt:\\.pdf:;
