perl -ne 'print $. if /^(.+)\s+\1$/' perl -ne 'print $. if /^(\d+)\s+\1$/'