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+$/($`!)$&/;
你对一个空值做正则匹配，想得到什么结果？
肯定什么都不会出现。