open my $rfh, '<', $CaptionFile or return "$CaptionFile: open(ro) failed: $!\n";
{
        # perldoc perlvar
        local $/ = "\n\n";
        @captions = <$rfh>;
        chomp @captions;
}
close $rfh or die "$CaptionFile: close(ro) failed: $!\n";