eva1("do NOT print 'just another perl hacker'");sub
eva1{($x=$_[0])=~s/[^']*?'([^'].*)'.*/\1/;print $x}