#! /usr/bin/perl

use strict;
use warnings;
use diagnostics;

chomp( my @input = <STDIN> );

foreach my $line (@input){
    if ( /fred/ ){
        print "Matched : $line";
    }
    
}