Select Code to Download

$line =~ s/^(\s*terminal\s=\s")[^"]+("\s*)$/$1$change$2/;

      if ($line =~ m/^\s*names\s=\s{(\s*(.+),?)+\s*/) {
         @tags = split ",", $line;
...
        elsif ($_ =~ m/([^\s]+)/) {$_ = $1}
         } @tags;
      }

    $line =~ /^\s*names\s*=\s*{\s*([^}]+)/;
    (my $names = $1) =~ y/" //d;
    my @tags = split /,/ => $names;

#!/usr/bin/env perl

...
-- Define a tag table which hold all screen tags.
tags = {
    names = { "Main", "WWW", "GIMP", "EMail", 6, 7 },

$ pm_regex_review.pl
================================================================
...
tags = {
    names = { "Main", "WWW", "GIMP", "EMail", 6, 7 },
================================================================