in reply to Dealing with split

I'd avoid split in this instance (m//g is more readable IMHO): 
print "$_\n" for /c:\\temp(\S*?)@@/g;

[download]

In Section Seekers of Perl Wisdom