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