. . .
strCliDeactivated => 'Currently not active',
strNotActive      => 'date has not yet been reached',
strExpired        => 'date has been reached',
. . .

##</code><code>##

. . .
my @global_data = <TEXT_LANG>;
my %globals;
eval "\%globals = ( @global_data )";
. . .
print STDERR $globals{strExpired} if $expired;
. . .