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

##</code><code>##

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