use strict;
use warnings;

open (LOG, "log.txt");

my $log;

while (<LOG>) { 
        $log .= $_;
}

my $zeile = 1;

while ($log =~ s/\n/{([$zeile])}/o) {
        ++$zeile;
}

while ($log =~ /S\/R Sending command\{\(\[\d+\]\)\}\-+\{\(\[\d+\]\)\}NRT CC\/(\d+)/g) {
        my $line;
        my $foundstr = $&;
        if ($foundstr =~ /\{\(\[\d+\]\)\}/o) {
                $line = $&;
        }
        if ($line =~ /\d+/) {
                $line = $&;
        }
        $foundstr =~ s/\{\(\[\d+\]\)\}/\n/g;
        print "$foundstr\nAt line: $line\n\n";
}