Select Code to Download

ALGORITHM: find_common
    INPUT: list of files (file_list)
    DECLARE: hash of IDs (id_hash)
    CALL: get_data WITH references to file_list and id_hash
    CALL: get_common WITH reference to id_hash

#!/usr/bin/perl -w
use strict;
...
ID1:6qq5_A|15~~6qq5_B|15~~6qq6_A|14~~6qq6_B|15~~6t6v_A|14
ID2:7d5p_A|14~~7d5q_A|12

 perl -e '$aline = qq~foo1: fie fo fum~; my ($aid,$rec) = split /:/,$a
+line; $aid=~s/^[a-z]+//; print qq~$aid...$rec\n~;'                   
+                                                               
1... fie fo fum