use OLE;
use Win32::OLE::Const 'Microsoft Word';
my $const=Win32::OLE::Const->Load("Microsoft Word 9.0 Object Library");

$word=GetObject OLE("Word.Application");

$word->Selection->Find->{'MatchWildcards'}=True;
$word->Selection->Find->{'Text'}='\<web\>*\</web\>';
if ($word->Selection->Find->Execute) 
{
	## $prematch=(15 characters only)
	## $postmatch=(15 characters only)
}

##</code><code>##

This is Sample Pre Match Text<web>www.hotmail.com</web>This is Sample Post Match Text

##</code><code>##

$prematch=' Pre Match Text';
$postmatch='This is Sample ';