Perl- Perl中使用awk失敗...

各位大大好

小弟是Perl新手，最近想把awk放進Perl來使用，

程式如下:

my $cmd=q(grep 'Only in ${keyword}' ./A.txt | awk -F '[ :]' '{print $3, $5}'
> BB.log);
system($cmd);

主要是想在A.txt中撈'Only in $keyword'的關鍵字
然後利用awk 分解字串(空格及:都要分解)，印出第3、5個字串到BB.log中。

google看到好像因為這串有太多單引號，會誤導perl，因此需要先把他們塞進q()中
但這樣我還是不能執行....

亂試了很多方法還是不能執行，跪求各位大大幫忙~謝謝!!!!

--