# Strip <script [..]>..</script> and <style>..</style> 
   $content =~ s!<(s(?:cript|tyle))[^>]*>.*?</\1>!!gis;