( $line =~ m/'*(?!a-zA-Z0-9)'/) 
( $line =~ m/'\\[0-9]*'/)