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";
}