If you don't know regular expression, simply use split function

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