#!/usr/bin/perl

use List::Util 'max';

print 'Insira 5 numeros divididos por espacos: ';
my @i = map { /(\d+)/ } split ' ', <>; #captura o input filtrando por numeros e joga em um array conforme a divisao por espacos
if(scalar(@i) == 5) { #verificao se o array possui 5 itens
   print 'Max: ' . max(@i) . "\n";
}
else { #ops, alguem colocou mais de 5 numeros
   print "Insira 5 numeros! Letras sao excluidas!'\n";
}