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