Select Code to Download

$str = "(<citationref linkend=\" cit314-1 cit314-2 cit314-3 cit314-4 c
+it314-5\"/>)";
if( $str =~ s/<ref links=\"(.*?)\"(.*?)\/>/<ref links=\"$1\"$2>(?{ &ge
+tString($1) })<\/ref>/ ){
...
    ...more processing of $s...
    return $s;
}