#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $string = qq[<th width="200px">KPI</th><th width="100px">Type</th><th width="75px">Data Type</th>];
my @result = split('>',$string);
print Data::Dumper->Dump([\@result], [qw(*result1)]), qq{\n};

open(DF, "test.dat") or die $!;
$string = <DF>;
close DF;
@result = split('>',$string);
print Data::Dumper->Dump([\@result], [qw(*result2)]), qq{\n};

chomp $string;
@result = split('>',$string);
print Data::Dumper->Dump([\@result], [qw(*result3)]), qq{\n};