Select Code to Download

#!/usr/bin/perl

...
    my ( $id ) = ( /(XYZ_ABC_[\d.]+)/ );
    print "ID is $id\n";
}

$ perl test.pl            # no debugger, not utf8
ID is XYZ_ABC_123456.7890
...
This is perl, v5.8.6 built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)

Summary of my perl5 (revision 5 version 8 subversion 6) configuration:
  Platform:
...
    /Library/Perl/5.8.1/darwin-thread-multi-2level
    /Library/Perl/5.8.1
    .

panic: pp_match start/end pointers at my_real_script.perl line 61, <I>
+ chunk 2.
 at my_real_script.perl line 61
...

Out of memory during ridiculously large request at my_real_script.perl
+ line 61, <I> chunk 2.