不小心把变量当字符串处理
写脚本时，经常要从日志里提取IP地址。比如用变量 $ip 存正则模式，结果发现匹配不上。问题出在没加引号或转义：
my $ip = \d+\.\d+\.\d+\.\d+; # ref="/tag/152/" style="color:#C468A7;font-weight:bold;">错误：没加引号
if ($line =~ /$ip/) { ... }这样 Perl 会把变量内容当作代码片段去解析，直接报错。正确做法是用单引号包裹，或者定义成 qr// 模式：
my $ip = '\d+\.\d+\.\d+\.\d+';
# 或者更推荐：
my $ip = qr/\d+\.\d+\.\d+\.\d+/;忘了转义特殊字符
想匹配 URL 中的 http://example.com，直接写 /http://example.com/，结果永远不匹配。因为斜杠 / 和点 . 都有特殊含义。点号在正则里代表任意字符，不转义就会出问题。
正确的写法是：
if ($url =~ /http:\/\/example\.com/) { ... }或者换分隔符避免太多反斜杠：
if ($url =~ m!http://example\.com!) { ... }贪婪匹配惹的祸
处理一段 HTML 标签时，想提取第一个 <div>...</div>，写了这么一段：
if ($html =~ /<div>(.*)</div>/) { ... }结果抓到了从第一个开始到最后一个结束的所有内容。因为 * 是贪婪的，能吃多长吃多长。这时候得加上 ? 来非贪婪：
if ($html =~ /<div>(.*?)</div>/) { ... }这样一遇到第一个 </div> 就停下来，符合预期。
忽略大小写没设对
检查用户输入的操作系统类型，允许 win、Win、WINDOWS 都算 Windows。写了 /windows/，结果只匹配小写。漏了 i 修饰符。
if ($os =~ /windows/i) { ... }加上 i 就行了，简单但容易忘。
用正则替换时变量写错位置
想把日期格式从 2024-04-05 改成 05/04/2024，写了：
$date =~ s/(\d{4})-(\d{2})-(\d{2})/$3/$2/$1/;结果输出是字面的 $3/$2/$1，不是替换后的值。原因是在双引号环境里，$ 被当成了变量。应该确保在正则替换部分正确解析：
$date =~ s{(\d{4})-(\d{2})-(\d{2})}{$3/$2/$1};或者确认变量确实存在且作用域正确。更稳妥的是用花括号分隔符，减少歧义。
多行文本处理漏了修饰符
读取配置文件时，想匹配以 # 开头的注释行，用了 /^#/，但文件是一整段传进来的，默认只认第一行。这时候得加 m 修饰符：
if ($config =~ /^#.*/m) { ... }m 让 ^ 和 $ 能匹配每一行的开头结尾，而不是整个字符串的头尾。
过度依赖正则做复杂事
有人试图用一条正则解析 JSON 或 XML，写了一大串嵌套括号和条件。这种不仅难读，还容易崩。像这种结构化数据，该用专门模块就用，别硬刚正则。Text::CSV、JSON::XS 这些轮子早就造好了，省事又稳定。