Solved. Using

my $width = $text-> advancewidth( $string );
[download]

but remembering to use the same font in $text and $annotation works fine!