my $cmd = "/usr/bin/man ssh";
open(MAN, "$cmd |") or die "Cannot run command '$cmd': $!";
while (<MAN>) {
  s/\010.//g;
  print "Worked!\n" if /ssh/;
}

##</code><code>##

man ssh |perl -ne 'print "$&:", ord($&), "\n" while /./g' | less