Help need to write a script on column separation for syslog output in perl

HI Pros,

I have a issue.I need to write a script to parse the logs got from syslog server and update the same in my database.I need the following output.I donot know perl and I heard it very easy to write in perl

I have the sample log I need each column seperated by commas and all equals need to be removed ie date= time= needs to be removed
THis is the same log

Oct 26 09:31:17 172.16.2.1 date=2009-10-26 time=15:13:26 devname=DNBTUFW01 device_id=FG300A3908500525 log_id=0317099511 type=webfilter subtype=ftgd pri=notice vd=root policyid=19 serial=113820071 user="N/A" group="N/A" src=172.16.12.113 sport=1293 src_int="port5" dst=203.77.189.53 dport=80 dst_int="port1" service="http" method="domain" cat=52 cat_desc="Information Technology" mode="rule" rule_type="rating" rule_data="Information Technology" hostname="photos.itpro.co.uk" status=passthrough url="/images/nav_bg_high.gif" msg="URL belongs to an override rule"

I need the following output

2009-10-26, 15:13:26 , 172.16.12.113 ,1293 ,"port5" , 203.77.189.53 ,80 ,"port1" ,"http" ,"domain" , "Information Technology" , "rating" ,"Information Technology","photos.itpro.co.uk" ,passthrough ,"/images/nav_bg_high.gif" 

This output will be very easy when I update in database