#!/usr/bin/perl

my @current_sentence = qw(so we can do it again yeah yeah);

print "current_sentence element: $_\n" for (@current_sentence);
$string = "@current_sentence";

print "String Before: $string\n";
if( $string =~ /.*\bso\b.*/ ) {
   print "String After: $string\n";
}