in reply to regexp help -- grab almost a whole string

if ($if_descr =~ m/DHEC\.?(\w+)/) {
     print "'$1'\n";
     $circuite_id = $1;
}

[download]

Nice and simple, no need for look-arounds whatsoever.

In Section Seekers of Perl Wisdom