#!/usr/bin/perl -w
use strict;

open INPUT, "presidents.txt" or die "Can't open presidents.txt";

while (my $line = <INPUT>) {
   if ($line =~ /19.8/) {
      print $line;
   }
}