per estrarre tutto l'ultima parte di numeri basta fare:

codice:
if ( m/<\/font>(.*?)<\/td>/i )      { print $1 }
Per normalizzare intendo trasformare una stringa da:

$_ = " 0 2 1 3 5 44 69 4";

a

$_ = "0 2 1 3 5 44 69 4" così poi poso fare una split()

grazie