Select Code to Download

#!/usr/bin/perl

...
);
push @vlans, $1 while ( m/\.(\d+):\w+/g );
print "@vlans\n";