print "$_\n" for grep {$_ =~ /$regex/} @lines;