If it helps, here's my test program. Still haven't found a solution to get all of them, but your comments are helping... Thanks!

Update: I added some more test cases...

#!/usr/bin/perl -w
use strict;

local $/ = undef;
my $file = <DATA>;

while ( $file =~

    # m,(use|require)[\s\+]+([\w:]+)\s*[^;]*;,igs
    # m,(?:use|require)\s+([\w:]+)\s*[^;]*;,igs
    # m,^[^#]*(use|require)\s+([\w:]+)\s*[^;]*;,igm 
     m,^(?:use|require)\s+([\w:.]+)\s*[^;]*;,gms

)
{ printf( "%-20s %-20s %-20s\n", $1 || '*', $2 || '*', $3 || '*' ); }

__DATA__

use one;

require two;

use
    three;

# use four;

# this is why you should use five.

use Six::Maybe;

require Seven.As.Well;

require Eight ; # haha!

use
  # nine; just kidding
  Nine;
[download]

"We're experiencing some Godzilla-related turbulence..."