Unmatched [ before HERE mark in regex m/<[ << HERE ^ at line 10

#m/<[
#  ^ should be '/'
m/\[
# ^
[download]

This is the code compliments of jsprat

#!C:\Perl\bin\perl -w
use strict;

#paragraph mode - see perlvar, input record separator
$/ = "";
while(<DATA>)
{
  my @lines = split /\n/, $_;
  my $file;
  $lines[0] =~ s/\[/\[$file / if ($file) = $lines[1] =~ /([^/]*)$';

        print join ("\n", @lines), "\n\n";
}

__DATA__
[get4]
$uri=/LRA/RiskApplicationPage.aspx
$method=GET

[get5]
$uri=/LRA/CSS/RiskManagement.css
$method=GET
[download]

I receive the following error:

Unmatched [ before HERE mark in regex m/([ << HERE ^/ at C:\Perl\greg2
+.pl line 10.
[download]

I'm using the following code compliments of jsprat:

#!C:\Perl\bin\perl -w
use strict;

#paragraph mode - see perlvar, input record separator
$/ = "";
while(<DATA>)
{
  my @lines = split /\n/, $_;
  my $file;
  $lines[0] =~ s/\[/\[$file / if ($file) = $lines[1] =~ /([^/]*)$';

        print join ("\n", @lines), "\n\n";
}

__DATA__
[get4]
$uri=/LRA/RiskApplicationPage.aspx
$method=GET

[get5]
$uri=/LRA/CSS/RiskManagement.css
$method=GET
[download]

and I receive the following error:

Unmatched ( before HERE mark in regex m/( << HERE \[^/ at C:\Perl\Test
+.pl line 10.
[download]

BTW, I'd have /msg'ed you, but you aren't logged in ;-) Maybe you should create an account?

Thanks jsprat, you were a great help, I always learn something new, Thanks again!