Select Code to Download

use strict;
use warnings;

#!perl -w
use strict;

  $foo.='some string';

  $foo=$foo (operator) (value)

  $foo (operator)= (value)

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