Shell Programming and Scripting

#/bin/perl
$a="
<L:RECORD>name=fai far,age=21,
company=Company ABC,project=BT App
</L:RECORD>
<L:RECORD>name=abc xyz,age=22,company=Inf Typ Tech,project=AT</L:RECORD>
<L:RECORD>name=uresh kum,
age=20,company=TC LTD,project=VGP</L:RECORD>
<L:RECORD>name=mah laxmi,age=23,company=Tata Co,project=JP MS</L:RECORD>
";
@a=split(/L:RECORD\>/,$a);
print "Enter Search Pattern: ";
$searchPattern=<>;
chomp($searchPattern);
foreach $i (@a) {
    if($i=~m/$searchPattern/) {
    print "$i\n";
    }
}

print "Enter Search pattern: ";
$user_input=<>;
chomp($user_input);
open (LOGFILE, "perl_try_ip.txt");
$input=<LOGFILE>;
@input=split(/L:RECORD\>/,$input);
for $line (@input)#(<LOGFILE>)
{
    if($line=~m/$user_input/)
    {
        print $line;
    }
}
close LOGFILE;

print "Enter Search pattern: ";
$user_input=<>;
$/="";
chomp($user_input);
open (LOGFILE, "file");
$input=<LOGFILE>;
@input=split(/L:RECORD\>/,$input);

for $line (@input)#(<LOGFILE>)
{
    if($line=~m/$user_input/)
    {
        print $line;
    }
}
close LOGFILE;

#! /usr/bin/env perl

use warnings;
use strict;

my $logfile = 'perl_try_ip.txt';

open LOGFH, '<', $logfile or die "$logfile: $!\n";
my $tag = qr(</?L:RECORD>);
undef $/;
my @content = split $tag, <LOGFH>;
close LOGFH or warn "$logfile: $!\n";
$/ = "\n";

while (1) {
    print "Enter Search pattern: ";
    chomp( my $user_input = <STDIN> );
    last unless $user_input or $user_input =~ /exit|quit/;
    my @matches = grep /$user_input/, @content;
    print @matches ? join "\n", @matches : 'no match', "\n";
}

open LOGFH, '<', $logfile or die "$logfile: $!\n";
my $tag = qr(</?L:RECORD>);
my @content;
{
undef $/;
@content = split $tag, <LOGFH>;
}
close LOGFH or warn "$logfile: $!\n";