my ( $name, $status ) = `./retrive 2301` =~ /(?=CID:\s*(.+))(?=STATUS:\s*(.+))/;