open(0,$0);$/=$;;<0>=~m{(ET / /).*(C[^\*]+)}s;$b=$1;($G=$g=$2) =~s/.*(en).*/s$1d(t,/s;$_=join');',S($g),S($g),"$G\"G$b\n\n\", 0","\$/=";substr($_,26,1,'"'.pack("cx2c5x8",2,80,209,85,3, 25).'"');sub S{split(//,shift);$_[3]=chr(ord($_[3])-($*?6:9)); $_[5]=chr(ord($_[5])-($*?11:-6));$_[7]='(t,';if(!$*++){$_[8]= join(',',split(/5?/,(ord($_[10])+104)));$_[2]='c';$_[6]=""; $_[0]='s'}$#_=8;lc join('',@_);}$_=eval;s/.*\r\n//s; s#(<[^>]+>)*(\w{0,2})#"$1 $2"#eg;print;#Content-type #### open( 0, $0 ); $/ = $;; <0> =~ m{(ET / /).*(C[^\*]+)}s; $b = $1; ( $G = $g = $2 ) =~ s/.*(en).*/s$1d(t,/s; $_ = join ');', S($g), S($g), "$G\"G$b\n\n\", 0", "\$/="; substr( $_, 26, 1, '"' . pack( "cx2c5x8", 2, 80, 209, 85, 3, 25 ) . '"' ); sub S { split ( //, shift ); $_[3] = chr( ord( $_[3] ) - ( $* ? 6 : 9 ) ); $_[5] = chr( ord( $_[5] ) - ( $* ? 11 : -6 ) ); $_[7] = '(t,'; if ( !$*++ ) { $_[8] = join ( ',', split ( /5?/, ( ord( $_[10] ) + 104 ) ) ); $_[2] = 'c'; $_[6] = ""; $_[0] = 's'; } $#_ = 8; lc join ( '', @_ ); } $_ = eval; s/.*\r\n//s; s#(<[^>]+>)*(\w{0,2})#"$1 $2"#eg; print; #Content-type