#!/usr/bin/perl -w
use strict;

open (INPUT, "jobs.txt");
open (OUTPUT, ">newjobs.txt");

while ( <INPUT> ) {
my $TheLine = $_;

	while ($TheLine=~ [^\n]*##citation##[^\n]*##citation##[^\n]*##citation##[^\n]*/i)
	{
	$TheLine=~ /([^\n]*)##citation##([^\n]*)##citation##([^\n]*)##citation##([^\n]*)/$1\t$2\n$1\t$3\n$1\t$4/i;
	}
	while ($TheLine=~ /[^\n]*##citation##[^\n]*##citation##[^\n]*/i)
	{
	$TheLine=~ s/([^\n]*)##citation##([^\n]*)##citation##([^\n]*)/$1\t$2\n$1\t$3/i;
	}

print OUTPUT "$TheLine";

}
close INPUT;
close OUTPUT;