perl get.pl http://veetle.com/index.php/listing/ajaxStreamByCategory/10/0/199/0 | awk -v RS='{' 'RT="}"' | sed 's/title":"//;s/thumbnailUrl":"//;s/channelId":"//' | tr -d '\'| awk -F '","' '{ print "#EXTINF:-1,"$6 ; system ("sh vechan1  http:\/\/veetle.com\/index.php\/stream\/ajaxStreamLocation\/"$4"\/flash")  ; print "\n" }' 
