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