#
# Date : 2010. 2. 10
#
$LOG_FILE = "patch.txt";
@expressions = ( "world", "work" );
open IN_FILE, $LOG_FILE or die $!;
while (my $line = <IN_FILE>)
{
foreach $expression(@expressions)
{
if ( $line =~ /$expression/ )
{
print $line;
}
}
}
close IN_FILE
