system(IPC::System::Simple),
列表切片 my ($x, $y) = (split /:/, $data)[1,5]