#!/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