#!/usr/bin/env perl
use warnings;
use strict;

while (<>) {
    my @fields = split;
    my $s = '';
    for (@fields) {
		if ( /(\d+)-(\d+)/ && $2 - $1 >= 30 ) {
			$s .= " $1-$2";
		}
    }
    print "$fields[0]$s\n" if $s;
}