my $v = q{$Id$}; print "$v\n"; or simply # $Id$