$last = scalar reverse(reverse($CODE) =~ m{
  \A
  (?: "(?:[^"\\]*.\\)*[^"\\]*" | (?>[^"<>]*) )*
  (>[^>]*<)
  (?: "(?:[^"\\]*.\\)*[^"\\]*" | (?>[^"<>]*) | >[^>]*< )*
  \z
}x);