$file = "c:\\somepath\\somefilename";
open (FILE, "<$file")  or die "Cannot open $FILE for read :$!";
@lines = <FILE>;
close(FILE);
for($i=0;$i<@lines;$i++) {
 if ($lines[$i] =~ /\bdbweb./) {
  chomp($templine = $lines[$i]);
  push(@newarry, $templine);
 }
}