my @aData;
{
  #set the record divider to __DATA__ :-)
  local  $/='__DATA__';
  @aData = <DATA>;
  chomp @aData;        #get rid of __DATA__ from end of record
}
print STDERR "------------DATA #1 ----------------\n$aData[0]"
           . "------------DATA #2 ----------------\n$aData[1]";

##</code><code>##

------------DATA #1 ----------------
<table width="100%" border="0" bgcolor="#ffffff" cellpadding="0" cellspacing="0">
                <tr>
                  <td colspan="2">&nbsp;</td>
                </tr>
                <tr>
                  <td width="60%">All Names List from:</td>
                  <td width="40%" align="left"><b>$date</b></td>
                </tr>
                <tr>
                  <td width="100%" colspan="2">&nbsp;</td>
                </tr>
              </table>

------------DATA #2 ----------------

<table width="100%" border="0" bgcolor="#ffffff" cellpadding="0" cellspacing="2">
                <tr>
                  <td><b>Name</b></td>
                  <td><b>Address</b></td>
                  <td><b>Phone</b></td>
                  <td><b>Email</b></td>
                  <td><b>$location</b></td>
                </tr>
                <tr>
                  <td colspan="5">&nbsp;</td>
                </tr>