#!/usr/bin/perl -nw
s/ (\d+) /<td>$1<img src="t$1.gif"><\/td>/g; 
s/t(\d)\./t00$1\./g;
s/t(\d\d)\./t0$1\./g;
s/Bristol/<td ><img src="tbristol.gif"\><br>Bristol hex<\/td>/;
s/ T /<td align="center">To:<\/td>/g;
print;