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