<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

use BabyRegex;

die 'usage: perl regexc.pl "pattern" ' unless @ARGV[0];
$pattern = @ARGV[0];

$c = BabyRegex-&gt;new($pattern);
$c-&gt;pasm();



</pre></body></html>