[Fouly]

Напиши так:
$price55=~s/(\d{3})(?=\d)/$1,/g;

P.S.
Модификатор 'i' тут незачем.