Derp

Derp content here

Gerp

Gerp content here

Blerp

Blerp content here

##

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

use Mojo::DOM;
use Mojo::File;

my $path = Mojo::File->new('td.html');
my $html = $path->slurp;

my $dom = Mojo::DOM->new( $html );

#for each hr
foreach my $hr ( $dom->find('h2,h3,h4,h5,h6')->each ){
  # grab the text
  my $text  = $hr->text;
  my $class = $hr->text;
  # remove x.x.
  $class =~ s/\-?\d+\.\d+\. //g;
  # update the DOM
  $hr->replace("$text");
  
}
# display updated DOM 
say $dom;

##

##



  
    
  

  Derp
  Derp content here
  Sponsored by artisan hammers
  Gerp
  Gerp content here
  Sponsored by artisan hammers
  Blerp
  Blerp content here