#!perl

use strict;
use warnings;

my ($INFILE, $OUTFILE);

open $INFILE, 'acis_empx20_win32d_3400.log' or die "Cannot open file: $!";
open $OUTFILE, '> acis_filtered.log' or die "Cannot open acis_filtered.log: $!";

while(my $line = <$INFILE>)
{
	if($line =~ /RS/)
		{ print $OUTFILE $line }
}

close $INFILE;
close $OUTFILE;


and example of use: C:>script.pl

##</code><code>##

#!perl -n

if(/RS/) { print }


and example of use:
C:\>script.pl acis_empx20_win32d_3400.log > acis_filtered.log

##</code><code>##

#!perl

use PDF::Reuse;

use constant mm => 25.4 / 72; # 72 punkty na cal to 2.83 punktu na 1 mm
use constant in => 1 / 72;
use constant pt => 1;

prFile('h1.pdf');
prFont('Helvetica');
prFontSize(12);
my $str = 'This module could be used when you want to mass produce similar (but not identical) PDF documents';
prText(5/mm, 170/mm, $str);
prText(5/mm, 170/mm - 12/pt, $str);
print prStrWidth($str, 'Helvetica', 12/pt);
prEnd();

##</code><code>##

#!perl

use Win32::OLE;
my $voice = Win32::OLE->new('SAPI.SpVoice');

$voice->speak("3.09");

##</code><code>##

use LWP::Simple;

my $str = get('http://repository.jboss.com/maven2/jboss/');

print $str;

##</code><code>##

Installation of Apache 2.2 - next, next, next, finish.
Installation of mod_perl

C:\>ppm install http://cpan.uwinnipeg.ca/PPMPackages/10xx/mod_perl.ppd
Downloading mod_perl-2.000004...done
Unpacking mod_perl-2.000004...done
Generating HTML for mod_perl-2.000004...done
<..........>
Where should mod_perl.so be placed? [D:/Apache2.2/modules] C:/Progra~1/Apache2.2/modules
<...........>
done
 474 files installed
C:\>

Configuration in httpd.conf:
LoadFile "C:/Path/to/Perl/bin/perl510.dll"
LoadModule perl_module modules/mod_perl.so