#!/usr/bin/perl use File::Slurp; my $_ = read_file( $ARGV[0] ) ; #s!( )! !g; # filler horisontal space s!( )+! !g; # filler horisontal space #s!(\s*
\s*)+!
!g; # filler vertical space s!(\s*
\s*)+!
!g; # filler vertical space s,
(?=(?:)?

),,ig; # filler horisontal space s,

\s*

,,ig; # filler horisontal space s!\s*\s*\s*!!g; # filler vertical space s!!!gi; # page dividers #s!]+>\K
(.+?)!

$1

!i; # H1 #s!
(.+?)!

$1

!i; # H1 s!\.(ft\d+){font\-size:52px;.*?\K]*\bclass="\1"[^>]*>(.*?)

$2

!is; s!\.(ft\d+){font\-size:19px;.*?\K]*\bclass="\1"[^>]*>(.*?)

$2

!isg; s!\.(ft\d+){font\-size:16px;.*?\K]*\bclass="\1"[^>]*>(.*?)

$2

!isg; s!]*>([^<\s][^<]*?)

$1

!isg; s,]*>(?!),
,isg; s,,,isg; s,,,isg; s,