foreach( split / /, "< s c r i p t " 
    ."  l a n g u a g e "
    ."= " J a v a s c r i 
+"
    ."p t " > a l e r t "
    ."( " I   s e e   w h
+ "
    ."a t   y o u   m e "
    ."a n " ) < / s c r i 
+"
    ."p t >"){
  /(\d+)/;
  print chr( $1 );
}
[download]

Update: to clarify that this is to interpret Re: OT: Cross-site Scripting - Articles and Tools. The &#...?; stuff is cLive ;-)'s, not mine.