open SOURCE,"<source.file" or die "Error opening source.file: $!";
open DEST,">dest.file" or die "Error opening dest.file: $!";
while ($line = <SOURCE>)
{
  next if ( 1 .. ($line =~ /RE/) );
  print DEST $line;
}