perl -pi.bak -e "$_ = qq/$.: $_/;"