@Raubtier & payx:

Ihr habt beide Recht. Ich habe erst lange an dem substr geknabbert. Der macht nur Sinn, wenn sich $tablename während des grep ändert. So was geht sicherlich in Perl (vielleicht über tie?). Dann bekam ich den Eindruck, dass nur ein Stück des jeweiligen Elements (der Anfang oder das Ende?) zurückgegeben werden sollte; dadurch kam ich auf map. Begründen kann ich das heute nicht mehr. Um das zu erreichen, müsste hinter den von dir korrigierten Match noch ein Filter gesetzt werden.

Für mich war es gestern Abend schon spät. Ich hätte besser Shutdown machen sollen.