Select Code to Download

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

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

  use B::Deparse;
  
...
    print "aaa \" $var bbb\n" ;
    return( 'foo' ) ;
  }

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

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

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

  $var = "foo$var" ;

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

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

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

$data = 'foo' x (1024*1024) ;
&test(\$data) ;
...
  my ( $datarf ) = @_ ;  
  if ( $$datarf =~ /foo/s ) { print "bar\n" ;}
};

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

 $$rf_s .= 'foo' ;

...
   my $Value = $$rf_h{$Key} ;
   print "$Key = $Value\n" ;
 }

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

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

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

  $foo = '123' ;
  $bar = undef ;
...
  
  $bar = 102030 ;
  print "foo: $foo\n" ;

  # To have $bar , @bar and %bar from *foo ;
  *bar = \$foo ;
...
  
  # For packages:
  *bar:: = *foo:: ; # you have now main::bar linked to main::foo

ENGLISH
  Nothing that was will be
...
  Há tanta vida lá fora,
  Aqui dentro, sempre,
  Como uma onda no mar.