#!/usr/bin/perl -n
/(\w+)\s*=\s*\1/;             # match "foo = foo"
