#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump qw(dump);
use Regexp::Assemble;

my $ra = Regexp::Assemble->new(debug => 8);
$ra->add( qr/^something$/ );
print "REGEXP => ", dump($ra->re), "\n";