sub table { my $html = shift; my $i=1; $html =~ s{<\s*(t\w+)}{ if (lc($1) eq "tr") {$i++; "(.*?)<\/td>}{ $dir = (qw(left right up down))[rand()*4]; if (rand()<.2) { "$1"; } else { "$1"; } }ieg; return $html; }