my $file = '/path/to/file';

{
    local $/ = "\n\n";
    open my $fh,'<',$file or die $!;
    while( my $entry = <$fh> ){
        next unless $entry =~ m!^\s*Volume!;
        print $entry;
    }
}