my $data = join("\n", <DATA>);

while ($data =~ /-+ show (\S+) -+\s(.*?)\s\*{40}/sg) {
   print "switchname $1\n";
   print "data $2\n";
}