Select Code to Download

[robin@robin robin]$ perl -le 'print \1'
SCALAR(0xd8b8)

  shift() =~ /(.*)/;
  shift() =~ /($1)x\1/ && print "yes!\n"