Aha,

One of these there-are-many-ways-to-solve-this perl questions.

{
local($/)=undef;
map { s/([A-Za-z]+)\W+([\d\.]+)/print STDOUT "$1 $2\n"/ge } <DATA>;
}
exit 0;
__DATA__
Alan
 
2.13
 
Mary
 
2.16
[download]

---------------------------
Dr. Mark Ceulemans
Senior Consultant
IT Masters, Belgium