use Scalar::Util 1.10 'looks_like_number';
use List::Util 'max';
my @numbers;
while ( <FILE> ) {
    chomp;
    push @numbers , $_ if looks_like_number( $_ );
}
print max(@numbers), "\n";