#!usr/bin/perl

open(DATA, "Stat1.wig");
open(OUTPUT, ">Stat1.bed");

my $thresh=20; %should change based on signal range and desired stringency

while(<DATA>)
{
	my @line=split/\s+/, $_;
	my $temp_sig=$line[3];	
	if ($temp_sig>$thresh){
		print OUTPUT "$line[0]\t$line[1]\t$line[2]\n";
	}
	
}
close(OUTPUT);
close(DATA);