# von Zeile "PartX:..." bis Leerzeile lesen
if ( $line =~ m/^Part\d+:/ .. $line =~ m/^$/ ) {
  # tu was mit Zeilen
}