( pts | 2011. 05. 28., szo – 11:02 )

$str=~s/(.)/sprintf"%%%02x",ord$1/egs;