#!/opt/local/bin/perl
use strict;
use warnings;

open my $vlan_in, '<', shift @ARGV;
my @vlans = <$vlan_in>;
foreach my $line (@vlans) {
  chomp $line;
  my @items = ($line =~ /(    # capture:
                          \d  # digit characters
                            + # one or more in a row
                             )/gx );   # as many as you can find
  foreach my $item (@items) {
    next unless defined $item;
    $item =~ s/,//;
    print "vlan $item\n";
  }
}