Tutto il tuo testo e` dentro una unica variabile stringa?

/.+((\-CICCIO\-).+?)$/

Poi in $_[length(@_)-2] e $_[length(@_)-1] trovi le ultime occorrenze.

Non so se ho capito quello che volevi

PS sono un po' arrugginito con il Perl, per cui potrei aver fatto errori di sintassi.