#!/usr/bin/perl

use strict;
use warnings;

my $string = qq[<th width="200px">KPI</th><th width="100px">Type</th><th width="75px">Data Type</th>];
my @result = split('>',$string);
print "Check :",$#result,"\n";