You've got a number of major problems.

• You never execute snvlook, for starters.

• @log will even only contain one string, but I suspect you want it to contain a number of strings.

• grep returns the number of matches in scalar context, not the list of matched items.

• If you did evaluate grep in list context, it would return the whole item that matched (the whole line, I presume), not just the CNR part.

• It's very hard to match a quote (") before the start of the string (^).

• You say your local variables are global. Expanding the scope of your variables is backwards. You want to take steps to limit the scope of your variable (by postponing declaring them until you need them, for starters).

Fix:

use strict;
use warnings;

my ($repo_path, $txn_name) = @ARGV;

my $svnlook = "D:\\Subversion\\bin\\svnlook.exe"; 

my $committer = `$svnlook author $txn_name $repo_path`
    or die("Unable to get committer with svnlook.\n");
chomp($committer);

my $commitlog = `$svnlook log $txn_name $repo_path`
    or die("Unable to get log message with svnlook.\n");

my ($cnr_number) = $commitlog =~ /^(CNR[0-9]+)/m
    or die("You must enter a valid CNR\n");
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.