perl 练习题写模式测试程序验证是否匹配正确

模式测试程序为：

#! /usr/bin/perl
while (<>) {
        chomp;
        if (/match.?/) {
                print "|$`<$&>$'\n";
        }
}

测试时，运行程序，输入  
beforematchafter
输出内容为：
|beforefter