@rem = '--*-Perl-*--    vim:syntax=perl
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15


my $rtf = shift or die "Please specify a .rtf file to convert.\n";

-e $rtf or die "File '$rtf' does not exist.\n";

(my $html = $rtf) =~ s/\.rtf$/.html/i;

## convert .rtf to .html
system "C:/Progra~1/CodeProject_RtfConverter/rtf2html.exe /nbs $rtf";

## modify the .html in-place
do {
   local $^I = '.bak';
   local @ARGV = ($html);
   while (<>) {
      s#<p>#<br/>#g;
      s#</p>##g;
      s#Consolas#Consolas, monospace#gi;
      print;
   }
   unlink("$html.bak");
};

__END__
:endofperl