#!/usr/bin/perl

use strict;
use warnings;

use List::Util qw/max min sum/;
use Perl6::Junction qw /all/;

while (<DATA>) {
    chomp;
    my @row = split /\|/, $_;
    print $row[2], "\n";        # Ausgabe der dritten Spalte
    
    if (all(@row) == qr/^\d+$/) { # Ausgabe von max, min, avg
        print join '|', max(@row), min(@row), sum(@row)/@row . "\n";
    }
}

__DATA__
1|2|3|4|5|6|7|8|9|10|
x|y|z|u|v|b|n|g|h|d|