#!\usr\bin\perl -w
for($_="head";s/(.)//;){
 print"now head is $_.\n";
}