Hi Tyler,
Thanks for the reply but I am still facing one problem as I am not even a starter in perl.
$ cat sample1.log
98.70.217.222 - - [08/Jul/2012:09:14:29 +0000] "GET /liveupdate-aka.symantec.com/1340071490jtun_nav2k8enn09m25.m25liveupdate-aka.symantec.com1340071490jtun_nav2k8enn09m25.m25liveupdate-aka.symantec.com1340071490jtun_nav2k8enn09m25?h=jshdjahsdieal HTTP/1.1" 200 159229484 "-" "hBU1OhDsPXknMepDBJNScBj4BQcmUz5TwAAAAA" "-"
$ perl -lne 's/^.*GET (.*?)\?.*/$1/; print $_, " is ",length($_)>=200?"":"", " greater than 200 char"; s/^\///; map {print $_, " is ", length($_)>=200?"":"", " greater than 200 char"} split/\//' sample1.log
/liveupdate-aka.symantec.com/1340071490jtun_nav2k8enn09m25.m25liveupdate-aka.symantec.com1340071490jtun_nav2k8enn09m25.m25liveupdate-aka.symantec.com1340071490jtun_nav2k8enn09m25 is greater than 200 char
liveupdate-aka.symantec.com is greater than 200 char
1340071490jtun_nav2k8enn09m25.m25liveupdate-aka.symantec.com1340071490jtun_nav2k8enn09m25.m25liveupdate-aka.symantec.com1340071490jtun_nav2k8enn09m25 is greater than 200 char
Now if you see the
BLUE line, it's length is not greater than 200 char but still its showing this in answer set.