Sample Text I Currently Parse:

untagged Interface GigabitEthernet 1/2
untagged Interface GigabitEthernet 10/2

##</code><code>##

Code I use today:

if ($parse =~ m/^untagged Interface GigabitEthernet (\d{1,2})\/(\d{1,2})/)/) {
    $slot = $1;                                     
    $port = $2;
    ...Misc Code...
}

##</code><code>##

Sample New Text to Parse:

untagged Interface GigabitEthernet 1/2,1/3-5,1/12,1/40

##</code><code>##

Output I need to make:

untagged Interface GigabitEthernet 1/2
untagged Interface GigabitEthernet 1/3
untagged Interface GigabitEthernet 1/4
untagged Interface GigabitEthernet 1/5
untagged Interface GigabitEthernet 1/12
untagged Interface GigabitEthernet 1/40