# warning windows double quotes
perl -nle "BEGIN{map{$w{$_}++}map{/^(.*\d)-(.+)$/?$1..$2:$_}split /,/,pop @ARGV}print if exists $w{$.}" FILENAME 1,2,4-6,11-13