求正则过滤文件边界信息

过滤文件的头尾部信息。
如下：
能不能提取出filename的值。

-----------------------------7da1a18501a2                                                     # 文件边界 起始
Content-Disposition: form-data; name="file"; filename="a.cpp"                  #  文件信息
Content-Type: application/octet-stream                                                      # MIME
                                                                                 # 过滤前三行及此空行                                                                                                        
# include <stdio.h>
# include <stdib.h>
　　main()
　　        {
　　int i , n ;
　　printf (″Content type: text/plain\n\n″);
　　n=0;
　　if(getenv(″CONTENT-LENGTH″))
　　n=atoi(getenv(CONTENT-LENGTH″));
　　for (i=0;i<n;i  )
　　putchar(getchar());
　　putchar (′\n′);
　　fflush(stdout);
　　        }

-----------------------------7da1a18501a2--                                      #过滤此行  文件边界   结束

# perl  -ne '/^--|^Content-Type|^Content.*filename="(.*)"/ and print $1 or print' data7.txt
a.cpp
# include <stdio.h>
# include <stdib.h>
  main()
          {
  int i , n ;
  printf (?Content type: text/plain\n\n?);
  n=0;
  if(getenv(?CONTENT-LENGTH?))
  n=atoi(getenv(CONTENT-LENGTH?));
  for (i=0;i<n;i  )
  putchar(getchar());
  putchar ('\n');
  fflush(stdout);
          }