[robin@robin robin]$ perl -le 'print \1'
SCALAR(0xd8b8)
##</code><code>##

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

foo fooxfoobar