#!/usr/bin/perl
use strict;
use warnings;

$/ = "</tr>";
my @meps = <>;
my $first = shift @meps;
my $last = pop @meps;
$first =~ s/^(.+?h1>\n)(.+)$/$1/s;
my $table_header = $2;
$last =~ s/^(.+?table>\n)(.+)$/$2/s;
my $table_footer = $1;
my %mepgrp;
foreach my $mep (@meps) {
  my ($begin, $grp, $end) = $mep =~ /^(.+?\n.+?\n.+?\n.+?\n.+?<\/td>)\n.+?<td>(.+?)<\/td>(.+)$/s;
  #$begin =~ s/(<td>03 88 17 7\d \d\d<\/td>)/<!--$1-->/;
  push @{$mepgrp{$grp}}, "$begin$end";
}

print $first;

print << "HTML";
  <p><i>Il est à noter que les numéros de téléphones donnés ici sont ceux des assistants, mais qu'à Strasbourg, l'eurodéputé lui-même répond souvent à ce numéro.</i></p>
  <h2 id='PPE-DE'>Groupe du Parti populaire européen (Démocrates-chrétiens) et des Démocrates européens (PPE-DE)</h2>
  <p>Demandez-leur de voter pour les 21 amendements déposés par les eurodéputés Jerzy BUZEK et Paní Zuzana ROITHOVÁ, comme conseillé par leur collègue de l'Assemblée nationale Bernard l'UMP CARAYON.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'PPE-DE'}}) {
  print $mep;
}
print $table_footer;

print << "HTML";
  <h2 id='PSE'>Groupe socialiste au Parlement européen (PSE)</h2>
  <p>La plupart sont déjà convaincus de voter les 21 amendements déposés pour le groupe PSE par le rapporteur Michel ROCARD, inutile de les <i>spammer</i> si ce n'est pour s'assurer de leur présences.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'PSE'}}) {
  print $mep;
}
print $table_footer;

print << "HTML";
  <h2 id='ALDE'>Groupe Alliance des démocrates et des libéraux pour l’Europe (ALDE)</h2>
  <p>À part Janelly FOURTOU, la plupart sont déjà convaincus de voter les 21 amendements déposés par leurs collègues Andrew DUFF et Marielle DE SARNEZ. Il faudrait s'assurer, en prenant garde de ne pas les <i>spammer</i> qu'ils seront bien présents, ne s'abstiendront pas et ne cèderont pas aux sirènes irréductiblement pro-brevets de Mm. Fourtou.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'ALDE'}}) {
  print $mep;
}
print $table_footer;

print << "HTML";
  <h2 id='Verts/ALE'>Groupe des Verts/Alliance libre européenne (Verts/ALE)</h2>
  <p>La plupart sont déjà convaincus de voter les 21 amendements déposés pour le groupe des Verts/ALE par leurs collègues Daniel Marc COHN-BENDIT, Monica FRASSONI et Eva LICHTENBERGER, inutile de les <i>spammer</i> si ce n'est pour s'assurer de leur présences.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'Verts/ALE'}}) {
  print $mep;
}
print $table_footer;

print << "HTML";
  <h2 id='GUE/NGL'>Groupe confédéral de la Gauche unitaire européenne/Gauche verte nordique (GUE/ALE)</h2>
  <p>La plupart sont déjà convaincus de voter les 21 amendements déposés pour le groupe GUE/NGL par leur collègue Francis WURTZ, inutile de les <i>spammer</i> si ce n'est pour s'assurer de leur présences.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'GUE/NGL'}}) {
  print $mep;
}
print $table_footer;

print << "HTML";
  <h2 id='IND/DEM'>Groupe Indépendance/Démocratie (IND/DEM)</h2>
  <p>La plupart sont déjà convaincus de voter les 21 amendements déposés pour le groupe IND/DEM par leur collègue Bogdan PĘK, inutile de les <i>spammer</i> si ce n'est pour s'assurer de leur présences.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'IND/DEM'}}) {
  print $mep;
}
print $table_footer;

print << "HTML";
  <h2 id='NI'>Non-inscrits (NI)</h2>
  <p>ffii.fr ne donne pas de consignes pour ces députés.<p>
HTML
print $table_header;
foreach my $mep (@{$mepgrp{'NI'}}) {
  print $mep;
}
print $table_footer;

print $last;