#!/usr/bin/perl
my @lines = <>;
my $config = join('', @lines);
my @interfaces = ( $config =~ m/interface.+?\n!\n/gi );
foreach my $interface (@interfaces) {
  print $interface . "\n";
}