Anonymous

#!/usr/bin/perl -w
use strict;

while (<>) {
        print "Enter a last name to search for: ";
        chomp(my $lastname=<STDIN>);
        if (/^($lastname*)/) {
        print "$lastname was found in the following line: \n $_\n";
        }