#!/usr/bin/perl -w
use strict;

while (my $l = <STDIN>) {
	chomp($l);
	#"15:39:37 l1_tch.c            : Meas Rpt: Serv RXLEV=21,Ncell RXLEV=0"
	#"15:39:30 l1_send.c           : Serving RXQUAL: FULL=0 SUB=0 DTX=0"
	if ($l =~ /^\d+:\d+:\d+\s+l1_send\.c\s+: Serving RXQUAL: FULL=(\d+) SUB=(\d+).*/) {
		my $rxlev = $1;
		if ($rxlev >= 3) {
			# enable red background and black foreground */
			printf "\033[30;41m";
		}
		printf("%s", $l);
		printf("\033[0m\n");
	}
}