#!/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,
(?=(?:)?
\s*
,,ig; # filler horisontal space s!\s*\s*\s*!!g; # filler vertical space s!!!gi; # page dividers #s!]+>\K]*\bclass="\1"[^>]*>(.*?)
!]*\bclass="\1"[^>]*>(.*?)
!]*\bclass="\1"[^>]*>(.*?)
!]*>([^<\s][^<]*?)
!]*>(?!),
,isg;
s,