open(MAN,"/usr/bin/man ssh |")
  || die "Could not fork():$!\n";
while (<MAN>)
{
  print "found it\n" if (/DESCRIPTION/i);
# tried with modifiers: m,s,i none worked.
}

##</code><code>##

system("man ssh >sshf");
open(MANP,"<sshf") or die "Error:$!\n";
while (<MANP>){
print "got it\n" if /DESCRIPTION/;
}

##</code><code>##

open(MAN,"/usr/bin/man ssh |") or die"$!\n";
while(<MAN>){
print "work!\n" if /description/ig;
}

##</code><code>##

open(MAN,"/usr/bin/man ssh |") or die"$!\n";
while(<MAN>){
print "work!\n" if /ssh/g;
}

##</code><code>##

$name = qw(

ssh - OpenSSH secure shell client (remote login program)
);

##</code><code>##

$synopsis = qw(

ssh [-l login_name] [hostname | user@hostname] [command]
);

##</code><code>##

$description =qw(

##</code><code>##

);

##</code><code>##

EOF