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";
}