while( $string =~ m/([^\x01-\x7E]+)/g ) {
    print $1, "\n";
}