#!/usr/bin/perl

use warnings;
use Getopt::Long;

my $input ="";
my $output ="";
my $datamat ="";
my $doodle ="";

GetOptions ('infile=s' => \$input, 'outfile=s' => \$output) or die $!;


open my $in_fh, '<', $input or die "Can't open $input: $!";
open my $out_fh, '>', $output or die "Can't open $output: $!";


while (<$in_fh>){

   $datamat .=$_
}

my $i = 0;

while ($datamat=~ m/»(.*?)«/gs) {
	$i++;
	$datamat=~ s/»(.*?)«/<q marker="»" sID="$i"\/>$1<q marker="«" eID="$i"\/>/s;
}

while ($datamat=~ m/›(.*?)‹/gs) {
	$i++;
	$datamat=~ s/›(.*?)‹/<q marker="›" sID="$i"\/>$1<q marker="‹" eID="$i"\/>/s;
}

print { $out_fh } $datamat or die $!;

close $in_fh or die $!;
close $out_fh or die $!;