Metacharacters^beginning of string$end of string.any character except newline*match 0 or more times+match 1 or more times?match 0 or 1 times; or shortest match|alternative()grouping; "storing"[]set of
以前在网上搜Perl的正则表达式，搜到的大部分都是正则表达式的语法列表，而很少有提到实现这些正则表达式的函数。
Perl的正则表达式函数为 “=~“
$string = "I love my Boss not my boss. Boss is a cat";
$string =~ s/(Boss)/<$1>/;
#这时候 $strin
