Select Code to Download

perl -ane "$s = qq(); foreach (@F) { /(\d+)-(\d+)/ and $2 - $1 >= 30 a
+nd $s .= qq( $1-$2) }; print qq($F[0]$s\n) if $s" input.txt