$line=; chomp $line; # this removes the CR character at line end ($a,$b)= split / +/, $line; #splits the line wherever it finds spaces