if ( $var =~ m/\A[+-]?\d+\z/ ) {    # $var is integer
  printf "%d\n", $var;
}
else {
  print "%s\n", $var;
}