Select Code to Download

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

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