#!usr/bin/perl

use strict;

my $file = "wiki.html";
my $file2 = "link_out_1.pl";
my $regex = "href\s*=\s*\"?.*\"";
my $sub = "href=\"#\"";
my $match;
my $before;
my $after;
my $line;

open(IN, "$file") || die $!;
open(OUT, ">$file2") || die $!;

while (<IN>) {
	chomp($line = $_);
	if ($line =~ /$regex/) {
		print "Got a Match\n";
		$before = $`;
		$match = $&;
		$after = $';
		$line =~ s/href\s*=\s*\"?.*\"/$sub/g;
		print OUT $line . $after . "\n";
		#print OUT $' . "\n";	
		
	} else {
		# do nothing

	} # end if

} # end while

close(IN);
close(OUT);