if ( $str_read_buf =~ m/^\X/ ) {
    # do success stuff
}
else {
    # fail stuff
    # processing never gets here
}