I'm assuming that "aA-zA" from your OP is intended to represent upper/lowercase alpha characters; these are combined with decimal digits in the [[:alnum:]] character class (update: see POSIX Character Classes in perlrecharclass). Try something like (untested):
    print $line if $line =~ m{ [^-_,:./,"[:alnum:]] }xms;
(Note that I'm assuming the newline has already been removed from $line. If not, just adding  \n to the character class should cover it.)

Update: Upon further examination, your example input seems to include some kind of space character(s). If so, just add  \s (any whitespace) or  [ \t] (just space and tab) or whatever is appropriate to the char class in my original reply. (Note that the  [] square brackets in  [ \t] should not be added: I just use these to highlight the presence of a space in that character set.)