$a = "abc";

$b = "def";

​

print "Value of \$a  = $a and value of \$b = $b\n";

​

$c = $a . $b;

print "Value of \$a . \$b = $c\n";

​

$c = "-" x 3;

print "Value of \"-\" x 3 = $c\n";

​

@c = (2..5);

print "Value of (2..5) = @c\n";

​

$a = 10;

$b = 15;

print "Value of \$a  = $a and value of \$b = $b\n";

​

$a++;

$c = $a ;

print "Value of \$a after \$a++ = $c\n";

​

$b--;

$c = $b ;

print "Value of \$b after \$b-- = $c\n";

​