Select Code to Download

$_ = "Bilbo Baggins's birthday is September 22";
/(.*)'s birthday is (.*)/;
print "Person: $1\n";
print "Date: $2\n";

sub new {
  my $class = shift;
...

  return $self;
}

" autowrapping text
set wrapmargin=10
...
set expandtab
set showmatch
set formatoptions=tcr