Hello Anonymous,

Well this site is about discussion and assisting people with their problems. Not asking people to do your work!

Having said that you do not provide us with enough data to answer to your question. I mean based on your data, how many times you want to read and reduce the tokens, is it once or infinite times?

How the tokens will be provided? You want to open a file and read the file into an input and then process it, or a user will provide the document as input.

Apart from all these notes, produce a minimal example of code to show at leas the effort that you tried to solve it.

Update: Sample of code:

#!/usr/bin/perl
use strict;
use warnings;

my @tokens = ("report_time" , "report_day" , "reset" , "read");

foreach my $singleToken (@tokens) {
    if ($singleToken eq "report_time") { print "report_t" . "\n"; } 
    elsif ($singleToken eq "report_day") { print "report_d" . "\n"; }
    elsif ($singleToken eq "reset") { print "res" . "\n"; }
    elsif ($singleToken eq "read") { print "rea" . "\n"; } 
}

__DATA__

report_t
report_d
res
rea
[download]

Is this the expected output?