#find lines that contain the same number twice
...
if ($line =~ /(\d+)[^\d]*\1[^\d]/o)