#!PERL.EXE -w
use strict;

my $a=1;      # number, not integer!
my $b="2";    # string
#my $b="2x";  # string
#my $b="x2";  # string

my $c= $a . $b;
my $d= $a + $b;

print "($c) ($d)\n";