Select Code to Download

...
{
    no warnings; # Known warnings are ok here.
    print ....$event[0]...$event[1]...$event[2]....event[3];
}

@events = split....;
push @events, ('&nbsp;') x (4 - scalar @events ) if (scalar @events < 
+4) ;
print...;