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