<loop db=Geodatenbank code=perl>
$Gesamt=$Koordinaten;
$Nord= substr($Gesamt, 1,9);
$Ost= substr($Gesamt, 12,21);
$Nordgrad= substr($Nord, 0,2);
$Ostgrad= substr($Ost, 0,2);
$Nordminute= substr($Nord, 3,2);
$Ostminute= substr($Ost, 3,2);
$Nordsekunde= substr($Nord, 6,3);
$Ostsekunde= substr($Ost, 6,3);
$Norddezimal= substr(("$Nordgrad"+("$Nordminute"+"$Nordsekunde"/1000)/60), 0,8);
$Ostdezimal= substr(("$Ostgrad"+("$Ostminute"+"$Ostsekunde"/1000)/60), 0,8);
$Karte="<img src=http://maps.google.com/maps/api/staticmap?center=$Norddezimal,$Ostdezimal&zoom=15&maptype=default&size=60x60&sensor=false&markers=color:red|label:|$Norddezimal,$Ostdezimal>";
</loop>