模式测试程序

#/usr/bin/perl
use 5.010;

while(<>){
    chomp;
    if (/YOUR_PATTERN_GOES_HERE/) {
        say "${^PREMATCH}|${^MATCH}|${^POSTMATCH}";
     } else {
         say "No match:   |$_|\n";
     }

}