#!perl -w
use strict;

my (
    $var1, $var2, @t_arr
   );

open(SL,"<s.log");
@t_arr=<SL>;
close(SL);
chomp(@t_arr);
$t_arr[0] =~ s/\s+$//;         # trailing whitespace

($var1, $var2) = split( /\s*=\s*/, $t_arr[0], 2);
if( !defined($var2) )
{
    print "undefined\n";
}
else
{
    print "$var1 X${var2}X\n";
}
exit;