Two things stand out here:
An idea is to print the string you're evaling, and of course checking whether eval produced an error in $@:
my $code = qq~modes::~ . $ARGV[2] . qq~::flex(/$line);~; warn $code; eval $code; warn "Eval failed: '$@'" if $@;
In reply to Re^3: Parsing Problems
by haj
in thread Parsing Problems
by ftherese
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |