#!/usr/bin/perl -w

use LWP::Simple;

$nyckelord = $ARGV[0];
$antal_matchningar = 0;

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

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

if ($antal_matchningar == 0) {
  print "Inga matchingar. Sorry\n";
} elsif ($antal_matchningar > 5) {
  print "Ojoj, det blev en hel del matchingar du - $antal_matchningar stycken!\n";
}