Another way ^_^>

#!/usr/bin/perl

$_ = qq(
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.2:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.10:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1002:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1003:INTEGER:1
);
push @vlans, $1 while ( m/\.(\d+):\w+/g );
print "@vlans\n";
[download]