Sample Data:
<tocelement name="New classification and
<tocelement name="Gestational diabetes mellitus
<tocelement name="Glycohaemoglobin: a
1997" ca= "ANZ"
<tocelement name="The prevention
<tocelement name="Diabetes and
</tocdivision>

Program:
while (<TEMP1>)
{
$CountTB=substr $_-0-1;
print $CountTB;
if ($CountTB eq "<")
{
print TEMP2 $_;
}
else
{
print "OK";
print "\b"- TEMP2 $_;
}
}

Problem:
I want the " 1997......" to be in 1 line before it. Meaning all lines must first start with "<" since the file is an xml. how am i gonna do it. i have a sample program but everytime i ran it- it stops at the sntence " 1997......" please help????

Correct output i want:
<tocelement name="New classification and
<tocelement name="Gestational diabetes mellitus
<tocelement name="Glycohaemoglobin: a 1997" ca= "ANZ"
<tocelement name="The prevention
<tocelement name="Diabetes and
</tocdivision>

Sample Data:
for date is equal to "99999999".

Question.
Is there a way in perl to store the value between the 2 quotes ("") regardless of how long th value is between them???

Other sample:
"666"
"asdfass"
"asasa343434535345"

I am trying to call a CGI script from the Network Link feature in Google Earth. I can call the script as long as it doesn t contain any parameters. Google Earth throws a parsing error when it sees the "&" in the URL. Is there a special way to invoke the script if it has parameters in Google Earth? Before I converted the Perl Program to CGI- it ran flawlessly. I had a string variable at the top of it that mimmicked the "$ENV{QUERY_STRING}" when it was the regular perl program. I took it out and replaced it with the real thing. I also added the CGI header line saying what type of application it is. ANy ideas?
I tried using the semicolon- and the parsing error didn t show up. However- it then said that it couldn t connect to the server. Any other ideas???

parted /dev/sda mklabel msdos will return
delete partition (yes/no) after giving yes it again prompts for the label type. the question is how do i pass the response to the command when my perl script is running.. it should be non interactive without user intervention. I tried using the response file and passing the values but it is not working pls can anybody help me regarding this..
well thanks in advance