Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "found '$1'\n" if /:([^;]+)/;
}
__END__

./foo.pl input_file

found ' karemaips01'
found ' karemadom02'
...
found ' karemafil-c'
found ' ka-lvscluco'
found ' ka-lvsdb'