Can't help you with a faster or different version, but I believe the \1 is an old awk/sed variable, it's probably available in Perl simply for historical reasons. Also, vi uses \1.