Perl - busqueda de caracter

me gustaría saber como cambiar un substring cada 4 concordancias del patrón.
poer ejemplo si tengo la cadena
@ text texto @ text texto @ text texto -@ text texto @ text texto @ text texto @ text texto -@ text texto @
(puse guión en la que quiero cambiar solo para marcarla a la vista).
Agradecería muchisimo cualquier ayuda
Saludos Natalia

No se si esto te valdra?.
Espero que los gurus del Perl no se enfanden :-)

$a = "la xx casa xx y xx el xx arbol xx la xx casa xx y xx el xx arbol";

$b= "xx"; # cadena a buscar
$c= "oo"; # cadena nueva
$e= "yy"; # para paso intermedio

while ($a =~ /$b/){
$i++;
if ($i == 4){
$a =~ s/$b/$c/;
$i=0;
}
else {
$a =~ s/$b/$e/;
}
}

$a =~ s/$e/$b/g;

print $a;

Saludos.