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