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


##</code><code>##


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


##</code><code>##


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