#!/usr/bin/perl
use strict; use warnings;
use P; 

my $intxt;
$intxt = << 'TXT' ;
<package type="rpm">
  <name>7kaa-music</name>
  <url>http://7kfans.com/</url>
TXT
;

sub REindex($$;$) {   #like 'index', except substr is RE
  my ($str,$ss)=(shift, shift);
  my $p = @_ ? shift:0;
  $str =~ m{^.{$p,$p}($ss+)} ? length $1 : -1;
}

my @lines=split "\n", $intxt;

my $ln;
my $lineno=0;

sub getln() {
  return $lineno<@lines ? $lines[$lineno++] : undef;
}

my $ttag;

  sub getnxt_tagln(); local * getnxt_tagln;
  *getnxt_tagln = sub () {
    do {
      $_=getln();
      defined $_ or return undef;
    } until m{^\s*<(/?\w+)};
    $ttag=$1;
  };

  my $tag;
 NXTPKG:
  while (getnxt_tagln()) {      # why '$1' null?
    $ln = $_; $tag = $1;
    Pe "_=%s, ttag=%s, tag=%s", $_, $ttag, $tag;
  }
# vim: ts=2 sw=2 ai number