Code I use today:

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