$str = "(<ref links=\" cit314-1 cit314-2 cit314-3 cit314-4 cit314-5\"/>)";

if( $str =~ s/<ref links=\"(.*?)\"(.*?)\/>/<ref links=\"$1\"$2>(?{ print $1 })<\/ref>/ ){
	print "Match was found." . "\n";
}
print $str . "\n";

##</code><code>##

Match was found.
(<ref links=" cit314-1 cit314-2 cit314-3 cit314-4 cit314-5">(?{ print  cit314-1 cit314-2 cit314-3 cit314-4 cit314-5 })</ref>)