獲取一個意外的空間在Perl輸出

Question

我想執行下面的perl腳本。

$var = "\$53:\$\?\$\?\$\? \$\=BAbc \$\? \$53: \$ hjk" 
$var =~ s/(\$\=B)/FLAGB/; 
$var =~ s/(?<=\$53:).*?(?=.[^\$\?\s])// 
$var =~ s/(FLAGB)/\$\=B/; 
print "\n$var"; 

的輸出，我得到是

$53: $=BAbc $? $53: $ hjkb 

什麼，我試圖做的是去除所有$和/或？和/或空間$53後：直到第一個字符（？超過$或或空間等），遇到和維護，如果$=B（我與FLAGB代行操作之前替換它）

現在我不能夠找到原因一個額外的空間出現在輸出$53後：

$53: $=BAbc $? $53: $ hjkb 

原諒我的無知，如果問題是一些愚蠢的，我是新來的Perl。

Answer 1

我覺得

s/(?<=\$53:).*?(?=.[^\$\?\s])// 

應該沒有點：

s/(?<=\$53:).*?(?=[^\$\?\s])// 

那一個不停的空間H作爲先行之前。

Answer 2

務實的事情是擺脫空間。

$var =~ s/(?<=:)\s//g;