#!/usr/bin/perl -w
use strict;

# ****************************************************************************
# * ExpressionTest: Quick program to test the results of regular expressions *
# ****************************************************************************

$_ = "LOCUS       BACLEFB                 3291 bp    DNA     linear   BCT 12-OCT-1995";


# ******** USE THIS CODE FOR SIMPLE VARIABLE $part ********

(my $part) = /PUT SOMETHING HERE/;
# Insert something between the slashes

print 'Search with $part gives: ', $part, "\n";

# ******** USE THIS CODE FOR ARRAY @part ********

(my @part) = /PUT SOMETHING HERE/;
# Insert something between the slashes

print 'Search with @part gives: ', join(",",@part), "\n";

