if ( &testA || &testB ) { print "IF\n" ;}
 sub testA { print "AAA\n" ; return( 1 ) ;}
 sub testB { print "BBB\n" ; return( 1 ) ;}


##</code><code>##

  if ( -s $file || $file =~ /\.new$/ || $file eq 'foo ') { ;}

##</code><code>##

  use B::Deparse;
  
  my $deparse = B::Deparse->new("-s");
  $body = $deparse->coderef2text(\&func);
    
  print "$body\n" ;
  
  sub func {
    if (0) { print "null\n" ;}
    print "aaa \" $var bbb\n" ;
    return( 'foo' ) ;
  }

##</code><code>##

  $var = "foo" ;
  $var = "$var,bar" ;

##</code><code>##

  $var = "foo" ;
  $var .= ",bar" ;

##</code><code>##

  $var += 10 ; # for $var = $var + 10 ;
  $var -= 10 ; # for $var = $var - 10 ;
  $var /= 10 ; # ...
  $var *= 10 ; # ...

##</code><code>##

  $var = "foo$var" ;

##</code><code>##

 substr($var,0,0) = "foo" ;

##</code><code>##

  while(1){
    my $var = &foo() ;
    ...
  }

##</code><code>##

  my $var ;
  while(1){
    $var = &foo() ;
    ...
  }

##</code><code>##

$data = 'foo' x (1024*1024) ;
&test(\$data) ;

sub test {
  my ( $datarf ) = @_ ;  
  if ( $$datarf =~ /foo/s ) { print "bar\n" ;}
};

##</code><code>##

 $rf_s = \$scalar ;
 $rf_a = \@array ;
 $rf_h = \%hash ;

##</code><code>##

 $$rf_s .= 'foo' ;

 push(@$rf_a , "BAR") ;
 $$rf_a[0] = 'bar' ;
 
 $$rf_h{b} = 'foo' ;
 foreach my $Key ( keys %{$rf_h} ) {
   my $Value = $$rf_h{$Key} ;
   print "$Key = $Value\n" ;
 }

##</code><code>##

  open (FLHD,"$0") ;
  my $fl_data = join('' , <FLHD>) ;

##</code><code>##

  open (FLHD,"$0") ;
  my $fl_data ;
  1 while( sysread(FLHD, $fl_data , 1024*8 , length($fl_data) ) ) ;

##</code><code>##

  open (FLHD,"$0") ;
  while (my $line = <FLHD>) {
    my ($x , $y , $z) = split("::" , $line) ;
  }

##</code><code>##

  $foo = '123' ;
  $bar = undef ;

  *bar = \$foo ;
  print "bar: $bar\n" ;
  
  $bar = 102030 ;
  print "foo: $foo\n" ;

##</code><code>##

  # To have $bar , @bar and %bar from *foo ;
  *bar = \$foo ;
  *bar = \@foo ;
  *bar = \%foo ;

  # glob: (but doesn't work for tied handles!)
  *bar = *foo ;
  
  # For packages:
  *bar:: = *foo:: ; # you have now main::bar linked to main::foo

##</code><code>##

ENGLISH
  Nothing that was will be
  Again in the same way like was one day.
  Everything goes,
  Everything will always go.
  The life comes in waves
  Like a sea,
  In a infinity coming and going.
  
  Everything that it is seen is not
  Equal than what we saw one second ago,
  Everything change all the time
  In the world.
  
  Don't try to run away
  Even lie for your self, now,
  Exist so much life out there,
  Inside here, always,
  Like a wave in the sea.

PORTUGUESE:
  Nada do que foi será
  De novo do jeito que já foi um dia.
  Tudo passa,
  Tudo sempre passará.
  A vida vem em ondas
  Como um mar,
  Num indo e vindo infinito.
  
  Tudo que se vê não é
  Igual ao que a gente viu há um segundo,
  Tudo muda o tempo todo
  No mundo.
  
  Não adianta fugir
  Nem mentir pra si mesmo, agora,
  Há tanta vida lá fora,
  Aqui dentro, sempre,
  Como uma onda no mar.