求助perl代码出现syntax error 错误

perl命令出错

代码
perl -e '$map=shift;$fasta=shift;open MAP,$map;open FASTA,$fasta;while(){chomp;@f=split /\t/,$;$id{$F[-1]}=$F[0]}while(){chomp;if(/^>/){/>(Cluster-\d+.\d+)--.*$/;$=qq{>$id{$1}}}print qq{$_\n}}' counts.txt 1.fasta > 2.fasta

错误提示
Scalar found where operator expected at -e line 1, near "$;$id"
(Missing operator before $id?)
syntax error at -e line 1, near "$;$id"
syntax error at -e line 1, near "$=qq{>$id{$1}}"
syntax error at -e line 1, near "qq{$_\n}}"
Execution of -e aborted due to compilation errors.


请好心的老师抽空给看看