martinthurn
New member
use strict;
use warnings;
use File::Slurp;
my $sContents = read_file(q{filename.txt});
if ($sContents =~ m/string of text/)
{
print "true";
}
else
{
print "false";
}
__END__
use warnings;
use File::Slurp;
my $sContents = read_file(q{filename.txt});
if ($sContents =~ m/string of text/)
{
print "true";
}
else
{
print "false";
}
__END__