Select Code to Download

      my $eol = qr/\015|\012|\015\012/;

    $hash{
      $something + $long / $and * $hairy
    } = $foo;

      if ( /blah (foo) gibber/ )
      {
          $var =~ s/\Q$1\E/bar/g;
      }

      if ( /blah (foo) gibber/ )
      {
          my $thingy = $1;
          $var =~ s/\Q$thingy\E/bar/g;
      }

      $file =~ s/<<(\w+);.*\n\1\n//sg;

      print <<EOT;
      this is short.
...
      print <<EOT;
      this is also short;
      EOT

      $file =~ s/[;\n]\s*#[^\n]*//sg; # Delete comments

      print "foo; #bar";

      print <<HTML, $end_of_stream;
      ...
      ...
      HTML

      print <<P1, <<P2;
      ...
...
      ...
      ...
      P2

      sub twiddle ( $ )
      {
         my ( $arg ) = @_;
         ...
      }

    LOOP:
      for ( my $I = do { ... }; $i < 20; ++$i ) { ... }

#!/usr/bin/perl

...
    my $hash_display = join '', unique_elements @hash_disp;
    eval $hash_display;
}