Help for this page

Select Code to Download


  1. or download this
    while(<>) {
   if (my $r = /^Services/ .. /^Users/ ) {
...
      last if $r =~ /E0$/;
   }
}
  2. or download this
    while(<>) {
   if (my $r = /^Services/ .. /^Users/ ) {
...
   }
}
  3. or download this
    while(<>) {
   if (my $r = /^Services/ .. /^Users/ ) {
...
      last if $r =~ /E0$/;
   }
}