Réorganisations de données dans un fichier en Perl

#!/usr/bin/perl

use strict;
use warnings;

my $nom_bloc = "";

while (<DATA>) {
    # si ligne blanche, $nom_bloc est réinitialisé et on saute 
    # une ligne
    if (/^\s*$/) {
        $nom_bloc = "";
        print "\n";
    } elsif
    # si nouveau bloc, conserver le nom dans $nom_bloc
    (/^(exemple\d+)\.flac\s+#\s*\(durée\s(exemple\d+)\s*=\s*/) {
        # vérifier que $1 et $2 sont égaux
        if ($1 eq $2) {
            $nom_bloc = $1;
        } else {
            print "Erreur de format ligne $_\n";
            exit;
        }
    } elsif
    # si temps, capturer, convertir et afficher
    (/^(\d+):(\d+):(\d+),(\d+)$/) {
        # si $nom_bloc est vide, c'est qu'il y a une 
        # erreur de format
        if ($nom_bloc eq "") {
            print "Erreur de format ligne $_, aucun bloc identifiable\n";
            exit;
        }
        # $1 à $4 ont respectivement, heure, minutes, 
        # secondes et millièmes
        print int(($1 * 3600) + ($2 * 60) + $3) .
            ",$4 $nom_bloc \n";
    }
    # si c'est autre chose, le format est incorrect
    else {                                                                                              
        print "Erreur de format ligne $_, format non identifié\n";
        exit;
    }
}

__DATA__
exemple1.flac   # (durée exemple1 = 66 centièmes de secondes)
00:21:29,642
00:23:15,628

exemple2.flac  #(durée exemple2 = 1 seconde et 016 centièmes)
00:29:26,812
00:35:43,056
00:44:37,231

1289,642 exemple1 
1395,628 exemple1 

1766,812 exemple2 
2143,056 exemple2 
2677,231 exemple2