change from perl to VB

Hi,
I have script in perl, which is a parsing program. How can i convert the same perl script to VBScript. Any easy way?

Perl script is:
---------------

#!/usr/local/bin/perl

#$dirname=<STDIN>;
$dirname=".";
chdir($dirname);

opendir $dirname, "." or die "cannot open the directory $dirname";


$from=0;


while($iFile=readdir($dirname)) {
open(iFileHandler,$iFile) or print("Unable to open $iFile \n");
$oFile="$iFile.txt";
open(oFileHandler,">$oFile") or print("Uneable to open the file $oFile\n");
while(defined($line=<iFileHandler>)){

if( ($line=~ /\s*From:(.*)(BOCCIO)(.*)(JM)*(.*)/) || ($line=~ /\s*Da:(.*)(Boccio)(.*)(JM)*(.*)/) || ($line=~ /\s*De:(.*)(Boccio)(.*)(JM)*(.*)/) || ($line=~ /\s*De:(.*)Jesus(\s)*(Maria)*(\s)*(.*)(Boccio)*(.*)/) || ($line=~ /\s*Da:(.*)Jesus(\s)*(Maria)*(\s)*(.*)(Boccio)*(.*)/) || ($line=~ /\s*From:(.*)Jesus(\s)*(Maria)*(\s)*(.*)(Boccio)*(.*)/) )
{
$from=1;
}
elsif( ($line=~ /\s*JMB/) || ($line=~ /\s*JM\s*Boccio/) || ($line=~ /\s*Jesus\s*Maria\s*Boccio/) || ($line=~ /\s*-*Original Message-*/) )
{

$from=0;
}
if($from==1)
{

if(!( ($line=~ /\s*De:.*/) || ($line=~ /\s*Enviado el:.*/) || ($line=~ /\s*Para:.*/) || ($line=~ /\s*Asunto:.*/) || ($line=~ /\s*Da:.*/) || ($line=~ /\s*Inviato:.*/) || ($line=~ /\s*A:.*/) || ($line=~ /\s*Oggetto:.*/) || ($line=~ /\s*Date:.*/) || ($line=~ /\s*cc:.*/)|| ($line=~ /\s*Cc:.*/) || ($line=~ /\s*bcc:.*/) || ($line=~ /\s*Bcc:.*/)|| ($line=~ /\s*From:.*/) ||($line=~ /\s*To:.*/) || ($line=~ /\s*Sent:.*/) || ($line=~ /\s*Subject:.*/) ))
{
print oFileHandler "$line";
}

}
}#inner while loop
close(iFileHandler);
close(oFileHandler);
}#outer while loop


exit;