use strict;
use warnings;
use Data::Dumper;

my $InputFile = "sample_log_file.txt";
my @all_metrics;
open my $IN, '<', $InputFile or die $!;
{
    local $/ = ">";
    while( my $record = <$IN> ) {
        chomp; # Removes trailing '>'
        push @all_metrics, $record;
    }
    close $IN;
}
print Dumper @all_metrics;