/usr/share/doc/libregexp-assemble-perl/examples/roman is in libregexp-assemble-perl 0.36-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | #!/usr/bin/perl -w
#
# roman - generate a regular expression that matches the roman numerals
# from 1 to 20.
#
# you can over-ride the upper bound (20) by specifying the value
# on the command line. You can also specify an indent value to
# pretty-print the resulting regexp.
#
# Copyright (C) David Landgren 2005
use strict;
use Regexp::Assemble;
my $max = shift || 20;
my $indent = shift || 0;
eval "use Math::Roman 'roman'";
$@ and die "You must install Math::Roman to run this example\n";
my $r = Regexp::Assemble->new;
$r->add(roman($_)) for 1..$max;
print $r->as_string( indent => $indent ), "\n";
|