if ( my $hit= /^-+ show switchname -+/ .. /^\*+/ ) { next if $hit==1 or $hit =~ /e0$/i; # When we're here, it's one of those lines in between # Now do whatever you want with the data.... }
$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print