sub search {
    my ( $str, $search ) = @_;
    return grep { $_ eq $search } split /;/, $str;
}