One thing I did notice, instead of using a while to get the scalar, you could:

{
  local $/=undef;
  $cap=<CAP>;
}
[download]

The declatations, open, close remain the same. The {} scopes the alteration to $/ to only affect the assignment to $cap.