use LWP::Simple;

    my $html = get('http://www.chollonet.com/trucoteca/truco.php?idjuego=598&plataforma=4');

    $html =~ /<td class="ContenidoTitulo" colspan="3">Trucos de  A 10 CUBA para PC </td>(*.)<td class="ContenidoTexto" colspan="3"> CODIGOS<br>Some Text </td>/s ;

    print $1;