if ( $number =~ /^\d*$/ and $number != 1 )
{
  # not 1 stuff here
}