Very quick and dirty NTFS file renamer since ntfs-3g will happily write "invalid" filenames.

ntfs_safe.pl

#!/usr/bin/env perl

use strict;
use warnings;
use File::Copy qw/ mv /;
use File::Find ();

my $dir = $ARGV[0] || '.';

use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

my $invalid_chars = qr/[*:?<>]/;

sub wanted;

File::Find::find({wanted => \&wanted}, $dir);
exit;

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    ! -f _
    && return;
    $name !~ $invalid_chars && return;

    printf("%s\t->\t%s\n", $name, $name =~ s/$invalid_chars/-/gr);
    mv $name, $name =~ s/$invalid_chars/-/gr;
}

Bug : should do two File::Find::finds - first dirs, then files.

As this was a once-off I'm probably not going to update it. This is just something you should be aware of.