$regex = "^abcde";
while (<LOG>) {
  print if /$regex/;
}