in reply to Re: using split to assign a single variable
in thread using split to assign a single variable

And here is one more way to do it! Its based on your use of $Revision:$
Check it out:

my($rcs) = (q$Revision: 1.37 $ =~ /(\d+(?:\.\d+)+)/);

[download]

humbly -c

In Section Seekers of Perl Wisdom