#! /usr/bin/env perl

use strict;
use warnings;
use lib qw(/homes/frasbio11/reneeb/cpan);
use Regexp::Assemble;

my @smilies = (':-)', ';-', ':-(');
my $ra = Regexp::Assemble->new();

$ra->add('^'.$_.'$') for(@smilies);

print $ra->re,"\n";