@_=(<>,'
'x$$);eval'print substr$_,0,1,""for@_;'x$$