Thanks, that works a treat :)

    $code =~ s{\[table\](.*?)\[\/table\]}{process_table($1)}ges;

sub process_table {

    my $in = $_[0];

    print qq|fgot: $in \n|;

}
[download]

Thanks again!

Andy