#!/usr/bin/perl
 
$ans="cat sheep tiger";
$ans =~ /(\w) *(\w) *(\w)/;       # 正常情况下的匹配表达式
print "===match start===\n$&\n===match end===\n";

$ans="cat sheep tiger";
$ans =~ /(\w)\s*   (\w)\s*   (\w)/x;
print "===match start===\n$&\n===match end===\n";

$ans="cat sheep tiger";
$ans = ~ /
        (\w)\s*      # 可以加上本行注释：匹配第一个单词
        (\w)\s*      # 可以加上本行注释：匹配第二个单词
        (\w)         # 可以加上本行注释：匹配第三个单词
        /x;
print "===match start===\n$&\n===match end===\n";

$ans="cat sheep tiger";
$ans =~ /
         (\w)\Q \E   # \Q \E强制将中间的空格当作字面符号被匹配
         (\w)\Q \E
         (\w)
        /x;
print "===match start===\n$&\n===match end===\n";