#!/usr/bin/perl
$file = 'chapter1.txt';
my ($chapnumber) = ($file =~/chapter(\d+).txt/);
while (<>)
{
~s/\
[(\d+)]/<a href
="c${chapnumber}f$1.html">[$1]<\
/a
>/g
; }
IyEvdXNyL2Jpbi9wZXJsCiAKJGZpbGUgPSAnY2hhcHRlcjEudHh0JzsKbXkgKCRjaGFwbnVtYmVyKSA9ICgkZmlsZSA9fi9jaGFwdGVyKFxkKykudHh0Lyk7CiAKd2hpbGUgKDw+KQp7IAogICAgfnMvXFsoXGQrKV0vPGEgaHJlZj0iYyR7Y2hhcG51bWJlcn1mJDEuaHRtbCI+WyQxXTxcL2E+L2c7IAogICAgcHJpbnQgJF87Cn0=