# repeat {  # Replace class with inline styles (repeatedly)
$new ~~ s/  class \= \" (\w+) \" / style="%classes{ $0.Str }" /;
#  } while $new ~~ /  class \= \" (\w+) \" /;