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