#!/usr/bin/perl

use strict;
use warnings;

my $file = 'ausgabedatei_des_tools.txt';

{
  open my $fh, '<', $file or die $!;
  local $/,"\n\n";
  while( my $entry = <$fh> ){
    my ($htb) = $entry =~ /(htb\s*\d+\.\d+)/;
    print $htb,"\n";
  }
}

  local $/,"\n\n"; 

    local $/ = "\n\n"; 

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

{
        local $/ = "\n\n";

        while ( my $block = <DATA> ) {
                if ( $block =~ m/class\s+(\S+\s\S+).+(Sent\s\d+).*(dropped\s\d+),\s+(overlimits\s\d+)/ms ) {
                        print "$1 $2 $3 $4", $/;
                }
        }
}


__DATA__
class htb 1:11 parent 1:1 prio 0 quantum 13107 rate 1Mbit ceil 1Mbit burst 2909b/8 mpu 0b cburst 2909b/8 mpu 0b level 0
Sent 254574739 bytes 2188533 pkts (dropped 0, overlimits 0)
rate 10587bps 105pps
lended: 2188533 borrowed: 0 giants: 0
tokens: 22234 ctokens: 22234

class htb 1:1 root rate 1500Kbit ceil 1500Kbit burst 3519b/8 mpu 0b cburst 3519b/8 mpu 0b level 7
Sent 595611979 bytes 3444145 pkts (dropped 0, overlimits 0)
rate 16492bps 161pps
lended: 14857 borrowed: 0 giants: 0
tokens: 18432 ctokens: 18432