Ahora creo que sí.

Lo he dejado así:

my ($a, $kk, $num, $b) = $s =~ m/(([^;]*;){6})([0-9]*)(.*)$/;	
$num--;
$s = $a . $num . $b ."\n";