## here you go...just some simple code from my tclsh prompt
## this is just a copy and paste of exactly what i typed out and the command returns
##

% package require http
2.4.5
% proc unhtml {text} {regsub -all -- {(<.+?>)} $text {}}
% set token [::http::geturl http://irpg.no-ip.info:81/players.php]
::http::1
% regexp -all -- {<ol>(.+?)</ol>} [::http::data $token] x players
1
% ::http::cleanup ::http::1
% foreach line [lrange [split $players \n] 0 5] {puts "[unhtml $line]"}

    player23, the level 45 king. Next level in 4 days, 15:45:15.
    Shadowsteel, the level 44 Dark Avenger. Next level in 0 days, 00:20:08.
    ferret, the level 44 Queen Ferret of the World. Next level in 1 day, 14:51:38.
    SoundLaye, the level 44 Producer. Next level in 2 days, 18:54:04.
    kel_ravien, the level 44 idler. Next level in 3 days, 09:14:21.
%