Script foreign_key_constraints_on_delete als Perl-Script neu implementiert

Grund: die Foreign Keys können durchaus auch anders
heißen (z.B. "$1").