Select Code to Download

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

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

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

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