#!usr/bin/perl -w
use strict;

my $page2 = '';
while( <DATA> ){
	if( s!<title>(.*)</title>!<li>A$1C</li>!gi ){
		$page2 .= $_;
	}
}
print $page2;

__DATA__
<title>first story</title>
This story is short.
<title>second story</title>
This story is longer. But not much longer.