9. Perl で こんにちは
? ^Hello, world! ̄
#!/usr/bin/perl -w
qq chop lc and print chr ord uc q chop uc and
print chr ord q ne sin and print chr ord qw q
le q and print chr ord q else and print chr
ord q pop and print chr oct oct ord uc qw q
bind q and print chr ord q q eq and print chr
ord qw q warn q and print chr ord q pop and
print chr ord q qr q and print chr ord q else
and print chr ord qw q do q and print chr hex
length q q semctl setpgrp chop q