for ( grep { $_->prev_sibling_text =~ m<([,.])\s*$> } @foots ) {


##</code><code>##

<a>Text text <b>Footnote code</b></a>


##</code><code>##

<a>Text text <b>Footnote code</b><a>The new text</a></a>


##</code><code>##

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