Help for this page

Select Code to Download


  1. or download this
    while(<>) {
  if(/Start/ .. /End/) { print }
}
  2. or download this
    {
  local $/;
  my $input = <>;
  if(/ Start(.*)? End/sg) { print $1 }
}