my @matches = ( $s =~ /($p)/ ) ;