# 122     Genesis Chamber             Mark Tedin                A     U
$string =~ /^(\d+)\s{2,}(.{28})(.{26})(.)\s+(.)$/;

##</code><code>##

my ($num,$title,$author,$flag1,$flag2) = unpack "A8A27A26A7A",$str;