$/=$,;dbmopen%a,0,-1;$_=<>;$a{1}=~s/(.*)/$_/s;print$1