man_chicken.pl

#!/usr/bin/perl -w
use strict;
$_= qx(./chicken.pl --printchickenversion);chomp;
my $seed = $_ * 1000;

sub bokbokbok {
    $seed++;
    return qx(./chicken.pl --seed $seed $1);
};

while(<DATA>) {
    s/\$\((.*?)\)/&bokbokbok($&)/eg;
    print;
}

__DATA__
.\"	$NetBSD: chicken.1,v $(./chicken.pl --printchickenversion|tr -d "\n") 1992/04/1 08:22:38 chick Exp $
.\"
.\" Copyright (c) 1985, 1991, 1992
.\"	The Regents of the University of Chicken.  All eggs reserved.
.\"
.\" $(-nw 7-10).
.\"
.\" $(-nw 20-30):
.\"
.\" 1. $(-nw 180-200)

.\" 2. $(-nw 60-80)

.\" 3. $(-nw 200)

.\" $(-nw 250-300)

.\" $(-nw 120 | tr '[:lower:]' '[:upper:]')

.\"
.\"	@(#)chicken.1	$(--printchickenversion|tr -d "\n") (Chicken) 4/1/92
.\"
.\" $(-nw 40)
.\" Linux.  Chicken, September, 1992.
.\"
.\" $(-nw 1|tr -d "\n"). Chicken (c) 1997 Chicken.  $(-nw 3-3)
.\"
.\" $(-nw 30-40)

.TH CHICKEN 1 "1 April 92 [May. 97]" "$(-nw 2-2|tr -d "\n")" "UNIX Reference Manual"
.SH NAME
chicken \- $(-nw 4-5).
.SH SYNOPSIS
.B chicken
[\fIOPTION\fR]
[\fI\-nw numwords\fR]
[\fI\-ml maxlength\fR]
[\fI\-en enum\fR]
[\fI\-\-namethischicken\fR]
[\fI\-\-seed num\fR]
[\fI\-\-printchickenversion\fR]
.SH DESCRIPTION
$(-nw 1)
.B chicken
$(-nw 30-40)
.SS Options
$(-nw 8-10)
.TP
.B \-nw
$(-nw 20-40)
.TP
.B \-ml
$(-nw 20-40)
.TP
.B \-en
$(-nw 20-30)
.TP
.B \--namethischicken
$(-nw 20-30)
.TP
.B \--seed
$(-nw 20-30)
.TP
.B \--printchickenversion
$(--printchickenversion)

.SH FILES
$(-nw 1|tr -d "\n"): $(-nw 10|tr '?.-' '*//')

.SH BUGS
$(-nw 200)
.PP
$(-nw 350)
.PP
$(-nw 1)
.SH HISTORY
$(-nw 10)
$(-nw 2-10 -en 5)
.PP
.SH AUTHORS
.IP ABC DEF
Written by $(--namethischicken), $(--namethischicken) and $(--namethischicken). Man-Page by $(--namethischicken). GUI: $(--namethischicken), DevOps: $(--namethischicken). Servermanagement: $(--namethischicken) and $(--namethischicken).
.SH SEE ALSO
.BR mimimi "(1), " yeehaw "(1), " snooze "(1), "
.BR yawn (1)