$ perl -demo

  DB<1> $A = "123"

  DB<2> if ( $A < 0 ) { print 'negative' }else {print 'non-negative'}
non-negative
  DB<3> $A = "-123"

  DB<4>  if ( $A < 0 ) { print 'negative' }else {print 'non-negative'}
negative