Hmmm...people don't seem to be interested in making them. Ah well. Here is a quine that shows a standard form that you can usually get to work...

# This is a quine.
$c = "# This is a quine.
";
$t = q(-c$c = "-c";
$t = q(-t);

  # Note the repeated text here.  This appears both in data
  # and in source.  Anything you want can go here as long
  # as it repeats and you do not interfere with these actions...

  # Substitute the variables back into the data.  If you do
  # not like symbolic refs, you could use a hash instead, same
  # diff.  This substitution builds source out of data.
  $t =~ s/-(\w+)/${$1}/g;

  # Since data is now source, just print it and we are done.
  print $t;
);

  # Note the repeated text here.  This appears both in data
  # and in source.  Anything you want can go here as long
  # as it repeats and you do these actions...

  # Substitute the variables back into the data.  If you do
  # not like symbolic refs, you could use a hash instead, same
  # diff.  This substitution builds source out of data.
  $t =~ s/-(\w+)/${$1}/g;

  # Since data is now source, just print it and we are done.
  print $t;
[download]

Of course it is also quite possible to make jokes that are quines. In fact I already did with the rather degenerate shortest one above. And here is another joke quine:

# This is a quine two :-)
undef $/;
$_ = <DATA>;
print;
print;
__DATA__
# This is a quine two :-)
undef $/;
$_ = <DATA>;
print;
print;
__DATA__
[download]

(Come on, give it a try. Quines are really quite fun. :-)