Select Code to Download

my ($filename) = $header{'Content-Disposition'}
    =~/ filename=(("[^"]*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*))/i;

my ($filename) = $header{'Content-Disposition'}
    =~/ filename=(("(?:\\\"|[^"])*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*)
+)/i;