Help for this page
use 5.010; while(<>) { ... } last if $done; }
while(<>) { if (my $r = /^Services$/ .. /^Users$/ ) { ... last if $r =~ /E0$/; } }