local $/="##Flag##\n";
open my $fh, "<", $filename or die $!;
while (my $chunk= <$fh>) {
  my @lines= split /\n/,$chunk;
  my ($firstvalue)= $lines[0]=~m/:(d+)/;
  ...