my $InputFile = "sample_log_file.txt";

open my $IN, '<', $InputFile or die "cannot open $each_file for writing: $!";

undef $/; # undef by default if localized

my @all_metrics = <$IN> =~ /[^>]+/g;

print Dumper( \@all_metrics );

close $IN;