I have a classic cisco config containing entries like these: 
interface GigabitEthernet6/10
 description TRUNK-KBV-SW001
 switchport trunk encapsulation dot1q
 switchport trunk allowed vlan 1,30,31,45,156-158
 switchport mode trunk
 switchport nonegotiate
!
interface GigabitEthernet6/11
 description Offices
 switchport access vlan 31
 spanning-tree portfast
!
interface GigabitEthernet6/12
!

[download]
I simply want to extract each interface config (from 'interface' to '!', inclusive) as a separate string, using a regular expression. I could rewrite this to extract each line manually but it just shouldn't be necessary. 
#!/usr/bin/perl
my @lines = <>;
my $config = join('', @lines);
my @interfaces = ( $config =~ m/interface.+?\n!\n/gi );
foreach my $interface (@interfaces) {
  print $interface . "\n";
}

[download]
This matches only the empty config, because . does not match \n

How can I make my regex match whatever lines, if any, appear between the 'interface' and '!' lines? I'm ashamed to say I've been beating my head against this for several hours and nothing seems to work...

-- Time flies when you don't know what you're doing

In reply to Matching a cisco interface config by FloydATC

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.