my ( $chr, $start, $end, $description ) = $annotation_line =~ /(chr\d+) (\d+) (\d+) (.*)/; if ( $description =~ /dgv_Cnv=True,overlap=\d+\.\d+%;/ ) { print "$chr\t$start\t$end\t$&\n"; }