#!/usr/bin/perl -n

######################################################################
# Solution requires more advanced knowledge of Perl technology
# but leverages "off the shelf" technology and components
# for a hopefully short and robust solution.
#
# -n command line switch provides loop to read file
# Number parsing and max number on line come from common
# Perl modules.
######################################################################

#
# I am being forced to work under threat and duress
# and had to remove this. Sorry. Hopefully I can put
# it back some day?
#
# Still afraid of eviction. Harassment at every meal.
# Very useful article of clothing seems to have been
# stolen day I had to remove code.
#


##</code><code>##

ron@penguin:~/monk-bus/line-w-high-no$ ./high-line.pl <in-data.txt 
1 this year is 2019 1