my ($n) = ( $data =~ /(\d+)\s*$/gi );
    $n = 1 if $n eq '' ;
    sleep(1);
    return( $n , $data ) if wantarray ;