Sorry,我错了,没看你的要求,厄,这样就好了。
$account[0]=~s/\B'//;
其实这个应该能看出来吧……