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

local $/;
$_ = <DATA>;
while (m/(.+?(?:$|(?=\d{4}\-\d{2}\-\d{2}\s+\d{1,2}\:\d{1,2}\:\d{1,2})))/gs) {
	print "START${1}END\n";
}
__DATA__
2010-03-11 18:26:42,431 DEBUG 5 System 172.22.2.120 (null) asdfasd fasfdsdf asdf asdf asdf asdf asdf asdf asdf asdf asdf asdf
asdf asdf asdf asdf asd fasd fasdf asdf asdf asdf as dfasdf

2010-03-11 18:26:42,431 DEBUG 9 System 172.22.2.120 (null)asdf asdf asdf asdf asdf asdf asdf asd fasdfaf as fasdf asdf asdf as df
asdf asdf adsf sdf asdf a fasdf asdf asdfdf af

2010-03-11 18:26:42,431 DEBUG 8 System 172.22.2.120 (null)asdf asdf asdf asdf asdf asdf asfasdfasf asf asdf asdf asdf
asd fasdf asdf asdf asdf asdf asdfasf asdf asdf