title: How to get filename of a opened file?
body: <p>I have this simple script that I'm working on. I must admit, I'm totally new to PERL and kinda stuck with this stupid problem. </p>
  
  <pre><code>open(IN, "&lt;def/t.html") or die();
  while(&lt;IN&gt;) {
      chomp;
      if($_ =~ m/FF0000/) {
          print "\n".$_."\n";
      }
  }
  </code></pre>
  
  <p>So... I opened the t.html and found the given string in the file. Output was ok, but I need also filename of a file in which string was found, to be printed. I really don't know how to return this, and I need it right after the <code>$_</code>. Thanks for the help in advance.</p>