my $dir = "/acm";

#  open file

while (<LOG>) {
	next unless /^\Q$dir\E/;
	# do something with $_ because it matches
}