elsif (/..a regex goes here../) { if(ref($self->{_ref_killed}) eq 'CODE'){ $self->{_ref_killed}->($1,$2,$3) } elsif(ref($self->{_ref_killed}) eq 'ARRAY'){ foreach my $sr (@{$self->{_ref_killed}}){$sr->($1,$2,$3)} } elsif(ref($self->{_ref_default}) eq 'CODE'){ $self->{_ref_default}->($1,$2,$3) } $self->_last_death($2); }