Select Code to Download

#!/usr/bin/perl

...
      print "$s1$s2";  # (update: added "$" on "s1")
   }
}

paste -d '' file1 file2 | perl -pe 's/(?<=\w)>.*//' > files.joined