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