print join('',($data =~ m/document\.write\(['"]([^)]+)['"]/sg));