{
    open(FILE, "sample.txt") or die "Can't open sample.txt\n";
    local $/ = undef;
    $lines = <FILE>;
    close(FILE);
}
if($lines =~ /foo/) {
print "A match was found\n"
}

##</code><code>##

$lines =~ s/foo/bar/gms;