#! c:/perl/bin/perl.exe
#
#
$|++;
AUTOLOAD;

use strict;
use warnings 'all';
my $Rec;
while (<DATA>)
{
   chomp;
   next if ($_ eq "");
   $Rec->{$1} = $2 if ($_=~ /^-+\s+show (switchname)\s+-+\n(\w+)\*+/mg);
   print "$Rec->{$1} = $2\n";
}
close DATA;


__DATA__
 show tech-support details

-------------------- show switchname ------------------
CCC217_ANG_GREEN
******************************************************************
 show tech-support details

-------------------- show switchname ------------------
CCC218_ANG_GREEN
******************************************************************

 show tech-support details

-------------------- show switchname ------------------
CCC219_ANG_GREEN
******************************************************************
 show tech-support details

-------------------- show switchname ------------------
CCC220_ANG_GREEN
******************************************************************