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