You might be able to be more productive by using Regexp::Assemble. I just started using it, and it does come in handy.

#!/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";
[download]