Roger, you are correct about the structure of the code, and that the print statement has to be in the proper place in the loop. I am now saving 99% of what I need into a new file.

I have quite a few loops as I sweep through the HTML to get my file name, and now everything I want gets printed into my file except the bit of text that I pull out to use as a file name for the image. The relevant code is this: 

{
push @next, $p->get_token();
 if ($next[1][0] eq 'T') 
 {
  my $title= $next[1][1]; 
  #strip white space from title and get up to four words
  if ($title =~ /(\w+)\s*(\w+)\s*(\w+)\s*(\w+)/)
   { 
   my $filetitle = $1 . $2 . $3 . $4;
   my $newsrc = $filetitle . "\.jpg";
    while ( $token=$p->get_token() )
    {
     if ($token->is_start_tag('img') )
     {
      my $src = $token->return_attr->{src};
      $token->set_attr('src', $newsrc);
      }                        
 print FILE $token->as_is;
    }
 }}}

[download]

In keeping with wishes, and genies, and not trying people's patience, I ask my third and last question on this code...Is there a way to put a token back into the stream so that I can keep the file's title text?

UPDATE:Taking a step or two back from this I realized a simple answer to my own question. I just added a print FILE $title; statement in after the regex and it did what I needed. I was so wrapped up in parsing the HTML that I had lost the thought that I could use another approach. Thanks, Monks, as always for your assistance.

In reply to Re: Loop behavior with HTML::TokeParser::Simple by WhiteBird
in thread Loop behavior with HTML::TokeParser::Simple by WhiteBird

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.