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