#!/usr/bin/perl -w

use strict;

open(IN,$ARGV[0])	or die ("$! : couldn't open $ARGV[0] for reading\n");

# slurp whole file into $text
local $/ =undef;
my $text=<IN>;
close(IN) or die "$! : couldn't close $ARGV[0]\n";

# assume no nesting of tags
$text=~s/(BEGTITLE.*?)wirey(.*?ENDTITLE)/$1smooth$2/gsi;
	
open(OUT,'>',$ARGV[1]) or die ("$! : couldn't open $ARGV[1] for writing");

print OUT $text;
close(OUT) or die "$! couldn't close $ARGV[1]\n";