if(<$read> =~ /$searchString/g) { 
    ...
    $read->close;
}