foreach my $line (@input){
    if ( $line =~ /fred/ ){