#!/usr/bin/perl -pi.bak -00
# -p flag puts a loop around commands that include a "p"rint command
# -i flag modifies files in place, and saves old ones in "<file>.bak"

# basic regex substitute   s/<pattern>/<text>/ can also be written as
#	s{<pattern>}{<text>}, which is convenient for html (don't have to
#	escape all the "/"s.  /i option allows case-insensitive matching.

	s{(rc\s+optical(\s+systems)?\s*</a>\s+telescope\s+operating\s+at\s+f/[0-9.]+\s*<br>)}{$1\n<a href="http://www.bisque.com/"> Paramount ME </a> Robotic Telescope Mount\n<br>}i;