#sub padIP {
    my $pad = 15;
    if( 0 ){
	print "CLF\n";
        s/^([\S]*)/$1 . ' 'x($pad-length($1))/eg; }
    else{
	print "NOT CLF\n";
        s/((?:\d{1,3}\.){3}\d{1,3})/$1 . ' 'x($pad-length($1))/eg; }
print "MATCHED: $1\n";
#}