use Modern::Perl;

my $tstatcollect = '/home/julian/tstatcollect';

open my $file, "<$tstatcollect" or die "Can't open $tstatcollect: $!";
my $data = <$file>;
close $file;

my @dataElem = ( split ',', $data )[ 0 .. 3 ];

foreach (@dataElem) {
    my ( $lable, $value ) = /"(.*)":(.*)/;
    say "\u$lable: $value";
}