use LWP::Simple;
use HTML::Parse;


#Parsing the http file for the required fields
$url = 'http://content.karger.com/ProdukteDB/produkte.asp?Aktion=ShowAbstract&ArtikelNr=6735&Ausgabe=224691&ProduktNr=223832';
$url =~ s/&/=/g ;
my @url_mod = split('=', $url);

#checking for url and increasing article no.

if ($url_mod[5] = 224691)
{
  open(Mytempoutput, ">tempoutput.txt");
  print Mytempoutput (get $url);
  $abs_str="";
  $aa[5]= $aa[5]+1;
  print $aa[5];
}