if($arr[$i]=~/^d+$/){

##</code><code>##

if($arr[$i]=~/^\d+$/){

##</code><code>##

for( @arr ) { 
  # if the element contains only digits
    if( /^\d+$/ ) { 
      $_ /= 2;
    }
}