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