Help for this page

Select Code to Download

Select or download this

my $pattern = '(\s*\w+\s+\d{2}\s\d{4}) | (Release\s+\d+\.\d+)';
while(<LOG>) {
    print $1  if($_ =~ /($pattern)/x );
}

Select or download this

my $pattern = '(\s*\w+\s+\d{2}\s\d{4})|(Release\s+\d+\.\d+)';
while(<LOG>) {
    print $1  if($_ =~ /($pattern)/ );
}