[perl] regex treffer durch funktionsergebnis ersetzen

Hi, ich bin sicher mir kann hierbei schnell jemand helfen:

1

$mytest = "hallo  - bin da";

2

print $mytest."\n";

3

$mytest =~ s/(.)/ord(\1) /g;

4

print $mytest."\n";

Ich denke das Beispiel ist selbsterklärend.
Ich möchte das auf den Treffer (in dem Fall jedes einzelne Zeichen) 
durch das Ergebnis einer Funktion ersetzt wird.

wie bekomme ich das hin?