#!/usr/bin/perl

$last = 0;
while(<>){
    @fields = split(/\s+/);
    $diff = $fields[1] - $last;
    $last = $fields[1];

    if($diff > 0.1){ # adjust number here
        print "+$diff\t";
        print $_;
    }
}