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

my @text;
{
    local @ARGV = ( './contents' );

    while ( <> ) {
        push @text, grep /important/, $_;
    }
}

print @text, "\n";
print @ARGV, "\n";