#!/usr/local/bin/perl

while( chop($_ = <STDIN>)) {
	$old = $_;
	# On the line below, use the format:  s/{old text}/{new text};
	s/The WBRS Fall Program<br>Guide/The WBRS Fall 1995<br>Program Guide/;
	system("mv $old $_");
}