Another alternative:
#!/usr/bin/perl
use warnings;
use strict;
my $eol = '[\n\r\x0A\x0D]';
$/ = '';
while (<DATA>) {
print /^(.*):$eol([^ ]*)/ ? "$1/$2\n" : $_;
}
__DATA__
$/Dev/something/something.com/blah1:
default.asp user Exc 26/07/04 1:42p
[TEST-DEV]F:\content\blah\wwwroot\blah1
$/Dev/something/something.com/something:
test.asp user Exc 26/07/04 3:09p
[TEST-DEV] F:\content\blah\wwwroot\something
$/Dev/something/something.com/blah:
Blah.inc user Exc 23/07/04 11:13a
[BAGEL-DEV] F:\content\blah\wwwroot\blah
$/Dev/something/something.com/blah/blah/20GB:
Something-were.htm user Exc 23/07/04 11:24a
[TEST-DEV]F:\content\blah\wwwroot\blah\blah\20GB
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
