Select Code to Download

        $line = <$FILE>;
        until ( $line =~ /^c/ or $line =~ /^mt?\d+/ ) {
            ...
            $line = <$FILE>;
        }

while (<$FILE>) {
  if (m/^m/) { ... }
...
  elsif (m/^c/) { ... }
  else { die "whoops - didn't expect: $_" }
}