Ciao,

$stringa = '%%1%%2%%3%%4%%5%%6%%7%%';

$stringa =~ /.+%%([^%]+)%%$/;
$ultimo = $1;