#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;


{
  package Meteoalarm::Parser;
  
  use HTML::TokeParser::Simple;
  
  sub new {
    my $class   = shift;
    my $content = shift;
    
    my $p = HTML::TokeParser::Simple->new(string => $content);
    my $self = {
      parser => $p,
    };
    bless($self, $class);

    return $self;
  }
  
  sub parse {
    my $self = shift;
      
    my (%data, $txt);
    
    my $t = $self->find_img() or return;
    
    $txt = $self->get_div_txt(q{info});
    ($data{from}, $data{until}) = $txt =~ /^valid from (.*)Until(.*)$/;
    
    $txt = $self->get_div_txt(q{info});
    ($data{type}, $data{level}) = $txt =~ /^(.*)Awareness Level: (.*)$/;
  
    $self->{data} = \%data;
    
    return 1;
  } 
  
  sub find_img{
    my $self = shift;
    my $p     = $self->{parser};
    while (my $t = $p->get_token){
      return $t if $t->is_start_tag(q{img});
    }
    return;
  }
  
  sub get_div_txt{
    my $self      = shift;
    my $div_class = shift;
    my $p         = $self->{parser};
    my $txt;
    while (my $t = $p->get_token){
      if (
        $t->is_start_tag(q{div})
          and
        $t->get_attr(q{class})
          and
        $t->get_attr(q{class}) eq $div_class
      ){
        $p->get_token;
        $txt = $p->get_phrase;
        return $txt;
      }
    }
    return;
  }

  sub get_data{
    my $self = shift;
    return $self->{data};
  }
  
}

# script

my $content = do{local $/; <DATA>};
my $mp      = Meteoalarm::Parser->new($content);

while ($mp->parse){
  my $data  = $mp->get_data;
  print Dumper $data;
}

__DATA__
<img src="my.jpeg">

<!-- possible stuff -->

<div class="info">
  <b>valid from</b> from date 1
  <b>Until</b> until date 1
</div>

<div class="info">
  <b>type 1</b>
  Awareness Level:
  <b>awareness level 1</b>
</div>

<div class="text">
  text
</div>

<!-- possible stuff -->

<img src="my_other.jpeg">

<!-- possible stuff -->

<div class="info">
  <b>valid from</b> from date 2
  <b>Until</b> until date 2
</div>

<div class="info">
  <b>type 2</b>
  Awareness Level:
  <b>awareness level 2</b>
</div>

<div class="text">
  text
</div>
  
<!-- and so on -->