use strict;

my @input_mail = <STDIN>;
my @refs;
my @output_mail;

foreach (@input_mail)
{
	if (/^X-WebCVS:\s(.+)\n/)
	{
		$refs[@refs] = "WebCVS reference: $1\n";
	}
	else
	{
		$output_mail[@output_mail] = $_;
	}
}

print @output_mail;
print @refs;
