if ($feld =~ /(\d{6}).(\d{6})/) { $feld = " $1/$2 " }