Help for this page
if($arr[$i]=~/^d+$/){
if($arr[$i]=~/^\d+$/){
for( @arr ) { # if the element contains only digits ... $_ /= 2; } }