#!/usr/bin/perl
use warnings;
use strict;

print 'Enter a File name: ';
chomp (my $file = <STDIN>);


print 'Enter a search pattern: ';
chomp (my $pattern = <STDIN>);

open (my $fh, '<', $file) or die "Unable to open '$file' for reading: 
+$!";
my $found = 0;
while (<$fh>) {
    if (/\Q$pattern\E/i) {
        print;
        $found++;
    }
}
print "\nTotal lines matched: $found\n";
[download]

Hey I just wanted to say thanks for the quick response. Just tried your code and it worked a treat! Thanks again. My next challenge is to display a time and date when the search was carried out. Thanks again sir! :)

Hi Limbic Region,
I've been racking my brains out to just to add a simple data and time to script so that user can see when the search was performed.
I found the script below as a standalone and worked perfectly fine. However trying to integrate it failed miserably!


($sec,$min,$hour,$mday,$mon,$year,$wday,
$yday,$isdst)=localtime(time);
printf "%4d-%02d-%02d %02d:%02d:%02d\n",
$year+1900,$mon+1,$mday,$hour,$min,$sec;
[download]


Please could you advise.
Thanks

Please, read some docs. Expend some effort on something other than asking questions already answered in those docs.

Then, show some effort - read the key docs about PM:

• On asking for help
• How do I post a question effectively?
• I know what I mean. Why don't you?

It is gratifying that you do appear to have read one usual element of a message such as this... that is, the admonition to use <code> tags. ++ for that; not so for the rest of your post.