Select Code to Download

# Before loop:
my %is_account;
...
...
# In loop:
push .... if !$is_account{$username};

awk '{
i=i+1
...
filename="file" i ".txt"
print >filename
}' tmp.txt

package FixStuff;

...

...
FixText(...blahblah...);

use FixStuff;

FixStuff::FixText(...blahblah...);

#!/users/contrib/bin/perl

...
}
print "Done\n";

package Release;

...
}
print "Done\n";

package Release;

...
  print "Release foo\n";
}
print "Done\n";

sub include_file {
  my $file = shift;
...

#Example:
include_file("file.txt");

# XML::Rules bug??
# Just want to change some attributes on some tags
...

$p->filter($xml, \*STDOUT);

INPUT: while (<>) {
...
  ( /^-?\d+/and $_ >= -2**31 and $_ < 2**31 ) or next INPUT for @nums;
  print "good line: $_";
}

#Fetch into a hash
my @columns = $sth->{NAME_lc};
...
  print "$_ = $row{$_}\n" for @columns;
  print "\n";
}

our $Kid_Status;
use POSIX ":sys_wait_h";
...
} else {
  exit 43;
}

#############################################
#!/usr/bin/perl
...
    }
    return $table, @names;
}

set nocp ignorecase smartcase
syntax enable
...
map ,v :sp ~/.vimrc<CR><C-W>_
"Reload vimrc file
map <silent> ,V :source ~/.vimrc<CR>:filetype detect<CR>:exe ":echo 'v
+imrc reloaded'"<CR>