#!/usr/bin/perl
while (<>) {
    s@http://www.ebi.ac.uk/rhea#@RHEA:@g;
    print;
}