Shell Programming and Scripting

<Name 1 
Hono

<Name 2
Jack

<Name 1
<Name 2

$file= names.txt;
open (HAN, "names.txt");
while ($line = <HAN>);
{
print $line;

if ($line = "<");
{
print $line;
}

{

#!/usr/local/bin/perl
$file = names.txt;
open(HAN,"<$file");
while(<HAN>)
{
        chomp;
        if ($_ =~ /^<Name/)
        {
                print $_ . "\n";
        }
}

perl -nle 'print if /^<Name/' names.txt