system "sed -n -e '/log-passed/,/log-end/p' /var/log/app1/$file"; # Perl variable

##</code><code>##

open my $FH, '<', "/var/log/app1/$file" or die $!;
while (<$FH>) {
    print if /log-passed/ .. /log-end/;
}