#! perl -slw
use strict;

$/ = 'Services';
scalar <>; ## discard everything up to the start of the bit you want
$/ = 'Users';
print scalar <>; print the bit you want

__END__
c:\test>junk31 junk31.dat

========================================================
blah
glah
sfsd


asfsdf
afsafdf

========================================================
Users