or, if you can slurp the whole file, just use a single regex...

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

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