in reply to splitting files
perl -pe '/^SS/ and (open STDOUT, ">",$ARGV . $count++ or die)' thebi +gfile.txt [download]
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});