Help for this page

Select Code to Download


  1. or download this
                                                                          
+                                        
 for ( grep { $_->prev_sibling_text =~ m<([,.])\s*$> } @foots ) {
  2. or download this
    <a>Text text <b>Footnote code</b></a>
  3. or download this
    <a>Text text <b>Footnote code</b><a>The new text</a></a>
  4. or download this
    sub jf { print substr($_[0], -1);
               jf( substr($_[0], 0, length($_[0])-1))
                    if length $_[0] > 1; }
jf('gro.alubaf@yehaf');