Split BED intervals into per-base elements

melt.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $cnt = 0;
while (<STDIN>) {
    chomp;
    my ($chr, $start, $stop, $id, $score, $strand) = split("\t", $_);
    for (my $meltIdx = $start; $meltIdx < $stop; $meltIdx += 1) {
        print STDOUT join("\t", ($chr, $meltIdx, $meltIdx + 1, $id."!$cnt", $score, $strand))."\n";
    }
    $cnt++;
}