sub handle_notification { my ( $self, $payload ) = @_; my ( $op, $type, $id, $ts ) = split( /;/, $payload, 4 ); # do something with $type & $id }