Shell Programming and Scripting

<cols><col min="1" max="1" width="30.5703125" customWidth="1"/><col min="2" max="2" width="7.140625" bestFit="1" customWidth="1"/>
      <col min="3" max="3" width="32.28515625" bestFit="1" customWidth="1"/><col min="4" max="4" width="21" customWidth="1"/>
<c r="P1" s="2" t="s"><v>179</v></c><hyperlink ref="A88" r:id="rId1" display="Google><hyperlink ref="A89" r:id="rId1" display="http://wikipedia.org/><hyperlink ref="H123" r:id="rId225"/><hyperlink ref="E124:E125" r:id="rId226" display="suresh.reddy@gmail.com"/>

<hyperlink ref="A88" r:id="rId1" display="http://google.com/>
<hyperlink ref="A89" r:id="rId1" display="http://wikipedia.org/>

$
$ cat f78
<cols><col min="1" max="1" width="30.5703125" customWidth="1"/><col min="2" max="2" width="7.140625" bestFit="1" customWidth="1"/>
      <col min="3" max="3" width="32.28515625" bestFit="1" customWidth="1"/><col min="4" max="4" width="21" customWidth="1"/>
<c r="P1" s="2" t="s"><v>179</v></c><hyperlink ref="A88" r:id="rId1" display="Google><hyperlink ref="A89" r:id="rId1" display="http://wikipedia.org/><hyperlink ref="H123" r:id="rId225"/><hyperlink ref="E124:E125" r:id="rId226" display="suresh.reddy@gmail.com"/>
$
$ perl -lne 'while(/(<hyperlink.*?>)/g) {print $1}' f78
<hyperlink ref="A88" r:id="rId1" display="Google>
<hyperlink ref="A89" r:id="rId1" display="http://wikipedia.org/>
<hyperlink ref="H123" r:id="rId225"/>
<hyperlink ref="E124:E125" r:id="rId226" display="suresh.reddy@gmail.com"/>
$
$

open(DAT, "xml.log") || die("Could not open file!");
while ( $content = <DAT> )
{
  if ($content =~ /(<hyperlink.*?>)/g)
  {
      print "$1\n";
  }
}

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

my $line;

open DAT, "< xml.log"; # Open file handle.
while ($line = <DAT>) { # Read the file line by line
    chomp ($line); # Chomp off the new-line character
    while ($line =~ /(<hyperlink.*?>)/g) { # Loop over the line and search for all occurrences of pattern.
        print "$1\n"; # Print whatever if found.
    }
}
close DAT; # Close file handle.