$/ = undef;
while ( <DATA> )
        { 
        @col=split('#',$_);
        $/ = \n;