Zamiana słów PERL

Witam

Mam takie coś:

$TEST = "LEWA NOGA JASIA";
print $TEST;
$TEST = ~s/PRAWA/GLOWA/;

Teoretycznie powinno teraz zmienić słowo LEWA na PRAWA, ale nie działa, w dodatku potem print $TEST wypisuje jakieś śmieci. Pomoże ktoś?

EDIT:

$TEST = "LEWA NOGA JASIA";
print $TEST;
$TEST = ~s/LEWA/PRAWA/;

i zamienić LEWA na PRAWA :P