Bonjour,
Soit
cat Desktop/poub
Description
Titre des livres

et cat Desktop/calendarFromBasic.pl
#! /usr/bin/perl -w
#$fich_calendar_html ='/home/peter/Desktop/basic.html';
$fich_calendar_html ='/home/peter/Desktop/poub';
open(FICH, $fich_calendar_html);
@occur = <FICH>;

close FICH;
$occur = join ('', @occur);
$occur =~ s/\<.*?\>//g;
$occur =~ s/Descrip.*?Titr/Titr/g;
print $occur;
exit;

Je ne comprends pas pourquoi ça renvoie
Description
Titre des livres

alors que par "$occur =~ s/Descrip.*?Titr/Titr/g;"
ça devrait supprimer tout le paragraphe Description(= tout ce qui est entre Descrip et Titre) et renvoyer
Titre des livres

? Qu'est-ce qui est faux dans ma commande