Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

RSAVAGE / Regexp-Parsertron-1.05 / scripts / stringify.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
#!/usr/bin/env perl
# Do not use 'use 5.14.0', since we want to run under say 5.10.1.
use strict;
use warnings;
# ---------------------
my($re) = qr//;
print "Stringified re: $re \n";