use strict; use warnings; ##
##

$ perl pm_11103133.pl ##

#!env perl
use strict;
use warnings;

while (my $lines = ){
    my @input = $lines =~ /\d+/g;
    my @largest_number = sort {$a <=> $b} @$input;
    print "$lines\n";
}

####

$ perl pm_11103133.pl ##

$ perl pm_11103133.pl ##

#!env perl
use strict;
use warnings;

# Keep track of the largest number we've found so far
my $largest_number_so_far = 0;

while (my $lines = ){
    my @input = $lines =~ /\d+/g;
    my @largest_number = sort {$a <=> $b} @input;

    if ($largest_number[0] > $largest_number_so_far) {
        # We found a bigger number!
        print "$lines\n";
        $largest_number_so_far = $largest_number[0];
    }
}

####

$ perl pm_11103133.pl ) at pm_11103133.pl line 13,  line 4.

####

#!env perl
use strict;
use warnings;

# Keep track of the largest number we've found so far
my $largest_number_so_far = 0;

while (my $lines = ){
    my @input = $lines =~ /\d+/g;
    my @largest_number = sort {$a <=> $b} @input;

    print "CURRENT LINE: <$lines>\n";
    print "NUMBERS FOUND IN LINE: ", join(", ", @largest_number), "\n";
    print "LARGEST IS: $largest_number[0]\n";

    if ($largest_number[0] > $largest_number_so_far) {
        # We found a bigger number!
        print "$lines\n";
        $largest_number_so_far = $largest_number[0];
    }
}

####

$ perl pm_11103133.pl 
NUMBERS FOUND IN LINE: 18
LARGEST IS: 18
Hello, I'm 18

CURRENT LINE: <1 this year is 2019 1
>
NUMBERS FOUND IN LINE: 1, 1, 2019
LARGEST IS: 1
CURRENT LINE: <1 2 3 - 4
>
NUMBERS FOUND IN LINE: 1, 2, 3, 4
LARGEST IS: 1
CURRENT LINE: <
>
NUMBERS FOUND IN LINE:
Use of uninitialized value $largest_number[0] in concatenation (.) or string at pm_11103133.pl line 14,  line 4.
LARGEST IS:
Use of uninitialized value in numeric gt (>) at pm_11103133.pl line 16,  line 4.

####

$ cat pm_11103133.pl
#!env perl
use strict;
use warnings;

# Keep track of the largest number we've found so far
my $largest_number_so_far = 0;

while (my $lines = ){
    my @input = $lines =~ /\d+/g;
    my @largest_number = sort {$b <=> $a} @input;

    print "CURRENT LINE: <$lines>\n";
    print "NUMBERS FOUND IN LINE: ", join(", ", @largest_number), "\n";
    print "LARGEST IS: $largest_number[0]\n";

    if (@largest_number) {
        # We found some numbers on the line!

        if ($largest_number[0] > $largest_number_so_far) {
            # We found a bigger number!
            print "$lines\n";
            $largest_number_so_far = $largest_number[0];
        }
    }
}

####

$ perl pm_11103133.pl 
NUMBERS FOUND IN LINE: 18
LARGEST IS: 18
Hello, I'm 18

CURRENT LINE: <1 this year is 2019 1
>
NUMBERS FOUND IN LINE: 2019, 1, 1
LARGEST IS: 2019
1 this year is 2019 1

CURRENT LINE: <1 2 3 - 4
>
NUMBERS FOUND IN LINE: 4, 3, 2, 1
LARGEST IS: 4
CURRENT LINE: <
>
NUMBERS FOUND IN LINE:
Use of uninitialized value $largest_number[0] in concatenation (.) or string at pm_11103133.pl line 14,  line 4.
LARGEST IS:

####

$ perl pm_11103133.pl ##

$ cat pm_11103133.pl
#!env perl
use strict;
use warnings;

# Keep track of the largest number we've found so far
my $largest_number_so_far = 0;
my $line_with_largest_number;

while (my $lines = ){
    my @input = $lines =~ /\d+/g;
    my @largest_number = sort {$b <=> $a} @input;


    if (@largest_number) {
        # We found some numbers on the line!

        if ($largest_number[0] > $largest_number_so_far) {
            # We found a bigger number!
            $line_with_largest_number = $lines;
            $largest_number_so_far = $largest_number[0];
        }
    }
}

print "$line_with_largest_number\n";

####

$ perl pm_11103133.pl