Improved }m

Niet getest, werkt waarschijnlijk ook helemaal niet want mijn Perl is bijzonder roestig :P