<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">while (defined($line = &lt;STDIN&gt;))
{
   ($key,$value) = split(/: /,$line);
   if ($key eq "Last Changed Rev")
   {
      print $value;
   }
}</pre></body></html>