#!/usr/bin/perl $string = "welcome to W3xue site."; $string =~ m/W3/; print "匹配前的字符串: $`\n"; print "匹配的字符串: $&\n"; print "匹配后的字符串: $'\n";