daran liegt es nicht. du solltest zum einen in der sub update_db auch die parameter aus
der argumentenliste holen, das machst du ja gar nicht. du uebergibst was und benutzt
dann gleichzeitig die "globale" variable. sieht für mich etwas wirr aus.
desweiteren benutz du an einer stelle $7, obwohl du den erfolg von der regex davor gar nicht
getestet hast. was machst du im fehlerfall? immer erst testen, bevor du auf $1, $2 etc zugreifst.
lies mal
perlsub