set_s_sc S1, "Just Another Parrot Hacker, "
print_s  S1
[download]

That's in Parrot Assembler. Parrot is the code name for the Perl 6 interpreter (as opposed to the parser and compiler). A _very_ early alpha of the interpreter is available on the CPAN: $CPAN/src/parrot-0.0.1.tar.gz

Update: That version is broken. Try this instead.

=cut
--Brent Dax
There is no sig.