#!/usr/bin/perl -w

use LWP::Simple;

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

while ($news_page =~ /(.*Explorer.*)/g) {
  $match = $1;
  $match =~ s/<.*?>/ /g;
  print "$match\n\n";
}