q in perl