viki k

#! /usr/bin/perl

use strict;
use warnings;

@ARGV = ("11214_2008_9368_JobSheet_200.xml");
while (<>) {
if (/Remove colour consent form/) {
print "Find\n $_\n
Do it colour in print\n";
}
if (/do not send colour consent form to author/) {
print "Find\n $_\n
Do it colour in print\n";
}
if (/remove CCF form/) {
print "Find\n $_\n
Do it colour in print\n";
}
if (/Special Issue/) {
print "Find\n $_\n
Do it colour in www\n";
}
}