# File:	string0.pl
# Title: 	Compare strings. Compare with: eq, gt, lt, ne, le, ge
#		Input from keyboard two strings
# Author:	Mihaela Malita
#	S1?= mel
#	S2?= mary
#	S1 eq S2 =  
#	S1 ne S2 =  1
#	S1 lt S2 =  
#	S1 gt S2 =  1
#	S1 le S2 =  
#	S1 ge S2 =  1

print "s1?= ";	
$s1 = <STDIN>; chop($s1);
print "s2?= ";  
$s2 = <STDIN>; chop($s2);	
print "$s1 eq $s2 = ",   $s1 eq $s2; 
print "\n$s1 ne $s2 = ", $s1 ne $s2; 
print "\n$s1 lt $s2 = ", $s1 lt $s2; 
print "\n$s1 gt $s2 = ", $s1 gt $s2; 
print "\n$s1 le $s2 = ", $s1 le $s2; 
print "\n$s1 ge $s2 = ", $s1 ge $s2; 
exit;