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

##</code><code>##

C:\Users\Desktop\x\New folder>perl -ane '$s = "";
Can't find string terminator "'" anywhere before EOF at -e line 1.

C:\Users\Desktop\x\New folder>foreach (@F) { /(\d+)-(\d+)/ and $2 - $1 >=
 30 and $s .= " $1-$2" }
'foreach' is not recognized as an internal or external command,
operable program or batch file.

##</code><code>##

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

##</code><code>##

Can't find string terminator "'" anywhere before EOF at -e line 1.