$str='This is Sample Pre Match Text<web>www.hotmail.com</web>This is Sample Post Match Text';
($pre,$post)=$str =~ m#(.{1,15})<web>.*</web>(.{1,15})#gsi;
print "\n$pre";
print "\n$post"