Shell Programming and Scripting

<Placemark>
<name><![CDATA[BTHomeHub****]]></name>
<description><![CDATA[BSSID: <b>*********</b><br/>Capabilities: <b>[WPA-PSK-TKIP]</b><br/>Frequency: <b>2437</b><br/>Timestamp: <b>1304892397000</b><br/>Date: <b>2011-05-08 23:06:37</b>]]></description><styleUrl>#red</styleUrl>
<Point>
<coordinates>******************</coordinates></Point>
</Placemark>

perl -p0e 's/<Placemark>.*?BTHomeHub.*?<\/Placemark>\n//sg' file

perl -p0e 's/<Placemark>.*?BTHomeHub.*?<\/Placemark>\n//sg' file | gedit

perl -p0e 's/<Placemark>\n[^\n]+BTHomeHub.*?<\/Placemark>\n//sg' file

#!/bin/bash
i=1;f=0
while read line
do
  if [ "$line" == "<Placemark>" ]; then s=0; fi
  echo "$line" | grep "$1" >/dev/null 2>&1
  if [ $? -eq 0 ] && [ $f -eq 0  ] ;then f=1;fi
  if [ "$line" == "</Placemark>" ]; then s=1; fi
  x[$i]="$line"
  if [ $s -eq 1 ];then
    if [ $f -eq 0 ];then
      for((j=1;j<=i;j++))
      do
        echo ${x[$j]}
      done
    fi
    i=0;unset x;f=0
  fi
  ((i=i+1))
done < infile