use strict;
use warnings;

my @one = ('vlan 107', 'vlan 121', 'vlan 122,127,129,137');
my @two = map { s/[^\d,]//g; split(q{,}, $_); } @one; 
print "vlan $_\n" for @two;

__END__
$ perl 638661.pl
vlan 107
vlan 121
vlan 122
vlan 127
vlan 129
vlan 137
[download]