if( $ThePost =~ /(\[include\])(\S+?)(\[\/include\])/ )
{
	my $inpath = $1;
	my $include = '<!--#include virtual="/directory/'.$inpath.'" -->';
	$ThePost =~ s/(\[include\])(\S+?)(\[\/include\])/$include/ig;
}