#!/bin/perl -w

use LWP::Simple;

$news_page = get 'http://nyheter.idg.se/';

while ($news_page =~ m/href="(.*display.*?)">(.*?)<\/a>/g) {
    print "$1 -> $2\n";
}
