Select Code to Download

 this, that and the other thing.<text:span 
text:style-name="footnote reference"> ...rest of footnote code </text:
+span> maybe more text here.

#!/usr/local/bin/perl
use strict;
...
                       "$replace" );
}
$document->save("output.sxw");

sub jf { print substr($_[0], -1);
               jf( substr($_[0], 0, length($_[0])-1))
                    if length $_[0] > 1; }
jf('gro.alubaf@yehaf');