Как удалить все файлы . из строки, кроме последней?

хотелось бы удалить все . из строки, кроме последней.

Это можно сделать в JavaScript вот так

var s='1.2.3.4';
s=s.split('.');
s.splice(s.length-1,0,'.');
s.join('');

, но когда я пытаюсь сделать то же самое в Perl

my @parts = split /./, $s;
my @a = splice @parts, $#parts-1,0;
$s = join "", @a;

я получаю

Modification of non-creatable array value attempted, subscript -2 at ./test.pl line 15.

Вопрос

Кто-нибудь может понять, как это сделать в Perl?