[Perl] Prelevare valore tra 2 stringhe note

[Format]

Ciao,
ho la necessità di inserire in una variabile la stringa contenuta tra altre 2 in un file, ad esempio:
In un file ho la stringa: <TD align=right>99,0%</td>
devo prelevare il valore numerico che in questo caso è 99,0%.
Grazie mille

[Mich_]

Se quello e` codice HTML, e` un po' errato e obsoleto: ti converrebbe passare ad una sintassi piu` moderna.

Comunque il problema Perl lo risolvi con una RE:

$str = '<TD align=right>99,0%</td>';
$str ~= /\>(.?+)\</;   # estrae quanto racchiuso tra la prima > e la < successiva
print $1;
$1 ~= s/,/\./;       # converte il numero in notazione inglese
print $1;