Select Code to Download

#!/usr/local/bin/perl

while (<>)
...
      s/([A-Z]+)/reverse($1)/ge;
      print;
}

sub getfromdb {
        $diagId = shift;
        $dbh = ConnectDB($User, $Password);
...
}

$$imageMap =~ s/ViewObject.pl\?name=(.*?)_DIAGLINK/getfromdb($1)/gei;