$fcount=()=$data=~m/YOUR REGEX HERE/xig

##</code><code>##

@matches=$data=~m/YOUR REGEX HERE/xig;
$fcount = @matches;