lenti210 [~/perltest]>more assign.pl
#!/user/bin/perl -w
# assign.pl, fun with assignment statements
# =, ++, --, +=, -=, *=, /=
# assign or modify the value of numeric variables

#standard (=)
print "Assign a value to a variable (=)\n";
$a = 5;
$b = 5;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

#increment by 1 (++)
print "Increment by one\n";
$a = $a + 1;
$b++;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

#decrement by 1 (--)
print "Decrement by one\n";
$a = $a - 1;
$b--;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

#increment (+=)
print "Increment\n";
$a = $a + 10;
$b += 10;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

#decrement (-=)
print "Decrement\n";
$a = $a - 5;
$b -= 5;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

#multiply (*=)
print "Multiply\n";
$a = $a * 2;
$b *= 2;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

#divide (/=)
print "Divide\n";
$a = $a/5;
$b /= 5;
print '$a = ', $a, "\n";
print '$b = ', $b, "\n\n";

exit;
lenti211 [~/perltest]>perl assign.pl
Assign a value to a variable (=)
$a = 5
$b = 5

Increment by one
$a = 6
$b = 6

Decrement by one
$a = 5
$b = 5

Increment
$a = 15
$b = 15

Decrement
$a = 10
$b = 10

Multiply
$a = 20
$b = 20

Divide
$a = 4
$b = 4

lenti212 [~/perltest]>