#!/usr/bin/perl -w

use strict;
use util;


my $filename = "prosite.dat";
my @file = get_file_data("$filename");

my $output = '';

foreach my $line (@file){
  if( $line =~ /^ID/ ){
    $line =~ s/^ID\s*//;
    $line =~ s/\.//;
    $line =~ s/;/,/;
    chomp($line);
    $output.=$line."\n";
  }
}

print $output;

exit;