UNIX Desktop Questions & Answers

ATOM      1  N   SER     1     -10.295  -8.909  10.913  1.00  0.00
ATOM      2  H1  SER     1     -10.230  -8.214  10.183  1.00  0.00
ATOM      3  H2  SER     1      -9.558  -8.745  11.584  1.00  0.00
ATOM      4  H3  SER     1     -11.255  -8.966  11.222  1.00  0.00

#!/usr/bin/perl -w

use strict;

my @filenames = qw(part1.pdb);

for my $filename (@filenames) {

    open(my $fr, '<', $filename) or next;
    open(my $fw, '>>', grep {/File\d+_\d+/} glob "File*_*.pdb") or next;

    local($/) = undef;
    my $content = <$fr>;

    print $fw $content;

    close $fr;
    close $fw;
}

FILE=$(mktemp -p .)
for i in File*; do
    cat part1.pdb ${file} > ${TEMP}
    mv ${TEMP} ${file}
done