#!/usr/bin/perl # An abject hack, but produces something that can be tidied up by hand. $in = 0; print "\n
$foo | \n"; $in = 1; } if ($ln =~ /coltoctitle{(.*?)}/) { $title = $1; } if ($ln =~ /import{(.*)}/) { $fyle = $1; if ($fyle ne 'missing') { print "${title} | \n${title} | \n\n"; } $in = 0; } } print "