my $note = Note->new(
    title   => 'My title xyzzy',
    message => 'My message',
    author  => 'me'
);

use Data::Dumper;

say Dumper [ $note->search('xyzzy') ];