#!/usr/bin/perl

use warnings;

while (<>) {
	s/^\S+\h+//;
	s/[\[].* INFO: //;
	s/\+?(45)?(\d{8})\b/$2/g;
	s/30640(636)\b/UNOTL$1/g;
	s/30959(593)\b/UNOT$1/g;
	s/22388(550)\b/SONOF$1/g;
	s/24803(952)\b/TDC__$1/g;
	s/28263(532)\b/TELIA$1/g;
	s/28590(882)\b/TELIA$1/g;
	s/25822(784)\b/TELE2$1/g;
	s/29331(323)\b/COOP_$1/g;
	s/29331(326)\b/COOP_$1/g;
	s/26806(408)\b/vera_$1/g;
	s/40917(191)\b/jacob$1/g;
	s/29903(585)\b/seimi$1/g;
	s/27846(210)\b/seimi$1/g;
	s/27846(211)\b/boaz_$1/g;
	s/27846(212)\b/andré$1/g;
	s/28265(004)\b/candc$1/g;
	s/26744(515)\b/krstn$1/g;
	s/25486(484)\b/jens_$1/g;
	s/20759(076)\b/sissl$1/g;
	s/40843(136)\b/jonas$1/g;
	s/\d{5}(\d{3})\b/*****$1/g;
#	/^(.{8}).*Starting to service <([^>\n]*)> from <([^>\n]*)> to <([^>\n]*)>/ and print "$1 $3->$4\n$2\n";
	/^(.{5}).*Starting to service <([^>\n]*)> from <([^>\n]*)> to <([^>\n]*)>/ and print "$1<$3: $2\n";
#	/^(.{8}).*sendsms sender:<[^:\n]*:([^>\n]*)> \([^\)\n]*\) to:<([^>\n]*)> msg:<([^>\n]{0,10}[^ >\n]*)/ and print "$1  to $3 via $2: $4\n";
	/^(.{5}).*sendsms sender:<[^:\n]*:([^>\n]*)> \([^\)\n]*\) to:< *([^>\n]*)> msg:<([^>\n]{0,10}[^ >\n]*)/ and print "$1>$3: $4\n";
}

1;