my $match;
while (<>)) {
   $match = $_ if /pat/;
}

if (defined($match)) {
    print("Matched $match");
} else {
    die("No match\n");
}