[ABE.pm] WTF is this code doing?

[Faber Fedor]

Since I'm on a self-modifying code kick, I googled the phrase and stumbled
across this:

#!/util/bin/perl
$s = q@($t = $s) =~ s/\045/\100/g;
print "#!/util/bin/perl\n\$s = q%$s%;$t";
@;($t = $s) =~ s/\045/\100/g;
print "#!/util/bin/perl\n\$s = q@$s@;$t";


What does

q@($t = $s)

and

@;($t = $s) =~

mean?

--

Faber
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/abe-pm/attachments/20070605/be364bb8/attachment-0001.html