use strict; my $a = "''"; print "$a\n";