print "quoted" if $string =~ /^["'].*\1$/;