Select Code to Download

------- Sample Text ------- 
!
...
 blah...
!
------- Sample Text -------

foreach $line (@cfg) {
   if ($line =~ m/^interface (\.*)/) { 
...
       blah...
   }
}