You can get it to be shorter with the ternary operator. This replaces your elsif block.

elsif ($selectioncriterium eq '=='){
    print "$number1 is ", $number1 == $number2 ? '' : 'not ', "equal t
+o $number2\n";
}
[download]

For <, >, == it isn't as easy since there are three choices.