use strict;
use warnings;

##</code><code>##

#!perl -w
use strict;

##</code><code>##

  $foo.='some string';

##</code><code>##

  $foo=$foo (operator) (value)

##</code><code>##

  $foo (operator)= (value)

##</code><code>##

  $foo+=10;
  $foo*=2;
  $foo.='bar';
  $foo||='default';