use Web::Scraper;
use HTTP::Tiny;
use utf8::all;
+use Encode;
my $url = 'http://www.wetter.at/wetter/oesterreich/tirol/obsteig';
my $response = HTTP::Tiny->new->get($url);
( my $temp = $res->{boxNow}->{temp} )
=~ s/Â?°//; # real °, and "something" before?!
my ( $weather, $clouds )
- = $res->{boxNow}->{icontext} =~ m|^([\w\s]+)\((\d+)% .*$|;
+ = $res->{boxNow}->{icontext} =~ m|^([^(]+)\((\d+)% .*$|;
my ( $rain, $wind )
= $res->{boxNow}->{rain} =~ m|Niederschlag: (.+)Wind: (.+)|;
+$weather = decode( "utf8", $weather );
+
say 'Wetter in Obsteig (von wetter.at)';
say '---------------------------------';