while() { if (m/^(?:Update Status:)\s*(\w+)/) { $target = $1; } if ($target eq "open") { if (m/^(?:Update Status:)\s*(\w+)\s*(.*)$/) { $view = $2; } print "$target\n"; print "$view\n"; close(check); } }