[Chicago-talk] Please allow me to introduce myself

[Andy_Bach at wiwb.uscourts.gov]

How about:
  my ($name, $birthDate, $birthPlace, $bust,
            $waist, $hips, $height, $weight)
             = split(/ /, " Unknown " x 8);
        $name = $1 if
        $con =~ /.*?<span class="name">(.*?)<\/span>.*?/is;
        $birthDate = $1 if
          $con =~ /.*?<p><b>BIRTHDATE:<\/b>(.*?)<\/p>.*?/is;
        $birthPlace = $1 if
          $con =~ /.*?<p><b>BIRTHPLACE:<\/b>(.*?)<\/p>.*?/is;
        $bust = $1 if
          $con =~ /.*?<p><b>BUST:<\/b>(.*?)<\/p>.*?/is;
        $waist = $1 if
          $con =~ /.*?<p><b>WAIST:<\/b>(.*?)<\/p>.*?/is;
        $hips = $1 if
          $con =~ /.*?<p><b>HIPS:<\/b>(.*?)<\/p>.*?/is;
        $height = $1 if
          $con =~ /.*?<p><b>HEIGHT:<\/b>(.*?)<\/p>.*?/is;
        $weight = $1 if
          $con =~ /.*?<p><b>WEIGHT:<\/b>(.*?)<\/p>.*?/is;
        $weight = " " . $weight;

a

Andy Bach, Sys. Mangler
Internet: andy_bach at wiwb.uscourts.gov 
VOICE: (608) 261-5738  FAX 264-5030

"Civilization advances by extending the number of important operations 
&which we can perform without thinking." Alfred North Whitehead