Select Code to Download

my $fi = "foo\xd9bar\xd9baz\xd9nothing";
open IN, '<', \$fi or die "Die fi!\n";
...
while (<IN>) {
  print chomp() ? "Found after $_\n" : "Not after $_\n";
}