use strict; $/="";for(split(//,)){my($_2)=$_=~/(\w)/; $@.=$_2;} print $@."\n"; __DATA__ H#$ (*& *)) ^%# *^$#@!@# ,###, &%#!@#$% ^%#@$%^# $@! (() @@) &%$ @## ( ) @!@ #% ^*( @#$ !!) &^% ^(($@#$% (( ( ) )) &)) ^^ (#%^^|$* *^% (u& S#@ (( (o) )) !@F@#% @! (# @|| !^@ $#@ !@# ( ) &(% !) !)( ||| (!(#@^#$ ^(# `( )' !)) #t ##@ ||| !##@#@^& @!((%&&( ### *%^ ##