my $c=";";my $q=q;print 'my $c="'.$c.'"'.$c.'my $q=q'.$c.$q.$c.$c.'eval $q'.$c;;eval $q;