-#*******************************************************************************
-#!/usr/bin/perl\r
-# Splits a concatenated set of Stockholm Files into several individual files.\r
-\r
-use strict;\r
-use FileHandle;\r
-my $ac;\r
-my $lns="";\r
-my $fh;\r
-while (<>) {\r
- if ($_=~m!^//!) {\r
- $fh->print("//\n");\r
- $fh->close();\r
- $ac = undef;\r
- $lns = "";\r
- } else {\r
- if ($_=~/GF\s+AC\s+([0-9.RPF]+)/) { \r
- $ac=$1; \r
- ($fh=new FileHandle)->open(">$ac.stk") or die("Couldn't open file '$ac.stk'"); \r
- $lns=~/^. STOCKHOLM 1.0/ or $fh->print("# STOCKHOLM 1.0\n");\r
- };\r
- if (defined($fh)) {\r
- if (defined $lns) { \r
- $fh->print($lns); $lns=undef; }\r
- \r
- $fh->print($_);\r
- } else {\r
- $lns .= $_;\r
- }\r
- }\r
-}\r
+# The Jalview Authors are detailed in the 'AUTHORS' file.
+##
+
+# Splits a concatenated set of Stockholm Files into several individual files.
+
+use strict;
+use FileHandle;
+my $ac;
+my $lns="";
+my $fh;
+while (<>) {
+ if ($_=~m!^//!) {
+ $fh->print("//\n");
+ $fh->close();
+ $ac = undef;
+ $lns = "";
+ } else {
+ if ($_=~/GF\s+AC\s+([0-9.RPF]+)/) {
+ $ac=$1;
+ ($fh=new FileHandle)->open(">$ac.stk") or die("Couldn't open file '$ac.stk'");
+ $lns=~/^. STOCKHOLM 1.0/ or $fh->print("# STOCKHOLM 1.0\n");
+ };
+ if (defined($fh)) {
+ if (defined $lns) {
+ $fh->print($lns); $lns=undef; }
+
+ $fh->print($_);
+ } else {
+ $lns .= $_;
+ }
+ }
+}