my @var=split / /, $lines[1];
print "$var[0] $var[1]";