Select Code to Download

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

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