Select Code to Download

#!/usr/bin/perl

...
                }
        }
}

^a
interface (POS(\S*))
fun

interface POS5/7
a dog
...
ant eats stuff.
b
stuff

interface POS5/7 matched interface (POS(\S*))
        $1: POS5/7
...
a dog matched ^a
a matched ^a
ant eats stuff. matched ^a