use strict;
use warnings;
use LWP::Simple;
use HTML::Entities;
my $str = decode_entities(get(q{http://www.uio.no}));
my @arr = split('\s+', $str);
for (@arr) {
  print if (m/[æøå]/i);
}
__END__
største
ønsker
å
søk-->
<!--Søk
søkeknapp
alt="Søk"
value="Søk"
Walløe
forskingsråd</a><span
å
nivået
...