$ 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 = <STDIN>){
    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];
        }
    }
}