perl正则替换

场景：perl正则替换小疑点

perl正则替换小问题

Perl code

using strict;
using warning;
my $a="huge dinosaur";
my $a1=~s/\w+$/($`!)$&/;
        print "$a1\n";

为啥这么写报错

Perl code

$a="huge dinosaur";
$a1=~s/\w+$/($`!)$&/;
print "$a1\n";

这么写却什么都没有出现？

------解决方案--------------------
你之前是写C++的？
1.
use 不是 using
warnings 不是 warning

2.
$a1=~s/\w+$/($`!)$&/;
你对一个空值做正则匹配，想得到什么结果？
肯定什么都不会出现。