Select Code to Download

#!/usr/bin/perl
use strict;
...
16/Jan/2005:00:00:40 -0500 "GET /ge/ige/1/1/4/common/cms_portletview2.
+html HTTP/1.1" 200 1702 0 "http://marketing.ge.com/portal/site/insura
+nce/" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" "-" "marke
+ting.ge.com"
16/Jan/2005:00:00:40 -0500 "GET /portal/site/transportation/menuitem.8
+c65c5d7b286411eb198ed10b424aa30/ HTTP/1.1" 200 7596 0 "http://geae.ho
+me.ge.com/portal/site/transportation/" "Mozilla/4.0 (compatible; MSIE
+ 5.5; Windows NT 5.0)" "-" "geae.home.ge.com"
16/Jan/2005:00:00:41 -0500 "GET /ge/ige/26/83/409/common/cms_portletvi
+ew.html HTTP/1.1" 200 7240 0 "http://marketing.ge.com/portal/site/ins
+urance/" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" "-" "ma
+rketing.ge.com"

    print $businesses{$1} $_;

    #yields: 
    #Scalar found where operator expected at C:\t.pl line 36, near "} 
+$_"
    #(Missing operator before  $_?)