sub match {
    my $count =()= $str =~ /$q/g
}