Select Code to Download

#!/usr/bin/perl

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

current_sentence element: so
current_sentence element: we
...
current_sentence element: yeah
String Before: so we can do it again yeah yeah
String After: so we can do it again yeah yeah