#!/usr/bin/perl -w

use LWP::Simple;

$nyckelord = $ARGV[0];

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

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