Select Code to Download

use strict;
use warnings;
...
else {
  print "no line with a number was seen \n";
  }

c:\@Work\Perl\monks\SSSufe>perl line_with_lagest_n_1.pl < lines.dat
F1 this year is 2019 1