#!/usr/bin/perl -w
# concatenation and coercion
$a = 1; $b = 2;
$c = $a . $b;
$d = $a + $b;

print "Concatenation of $a and $b = $c
     Coercion of $a and $b = $d

";

# Interpretation of variable type by use of the operators

($a, $b) = qw/ 12 34 /;
if ($b ge $a) {
  print "\$b ($b) ge \$a ($a)\n"
} else {
  print "\$b ($b) lt \$a ($a)\n"
};
if ($b >= $a) {
  print "\$b ($b) >= \$a ($a)\n\n"
} else {
  print "\$b ($b)  < \$a ($a)\n"
};

($a, $b) = qw/ 123 34 /;
if ($b ge $a) {
  print "\$b ($b) ge \$a ($a)\n"
} else {
  print "\$b ($b) lt \$a ($a)\n"
};
if ($b >= $a) {
  print "\$b ($b) >= \$a ($a)\n\n"
} else {
  print "\$b ($b)  < \$a ($a)\n"
};