D:\tmp\pm>perl -MO=Deparse print "a"=> => => "c"; __END__ print 'a', 'c'; __DATA__