#!/usr/bin/perl -w
use strict;

open (IN, "<$0") || die;	# $0 is this script
my $data;
read(IN,$data,30);	# read in first 30 characters
close(IN);

# now split those into an array of individual values
my @chars = unpack('c*',$data);
print chr($_)."\n" foreach (@chars);