## perl -lne 'BEGIN{undef $/} while (/.*?(.*?)<\/a><\/li>/sg){print $1}' index.html ##
## earth_text space_text ##
## print $1 . "; " . $2