Tuna, A minor suggestion: You are bothering with far more items from split than you actually use. Instead of this:

($as,$as_name,$nbr,$rtr,$int,$address,$int_name,$ifindex,$vpi,
+$vci) = split(' ',$priv_line);
[download]

How about this:

($rtr,$int_name) = (split(' ',$priv_line))[3,6];
[download]