Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
$currentSentence =~ s/[\ba\b|\ban\b|\bthe\b]//g;
exit;

P:\>rmv1.pl
Global symbol "$currentSentence" requires explicit package name at P:\
+rmv1.pl line 4.
Execution of P:\rmv1.pl aborted due to compilation errors.

#!/usr/bin/perl
use strict;
use warnings;
my $currentSentence =~ s/[\ba\b|\ban\b|\bthe\b]//g;
exit;

P:\>rmv2.pl
Use of uninitialized value $currentSentence in substitution (s///) at 
+P:\rmv2.pl line 4.

#!/usr/bin/perl
use strict;
...
my $currentSentence = "The big dog rolled in an open field filled with
+ a type of grass.";
$currentSentence =~ s/[\ba\b|\ban\b|\bthe\b]//g;
exit;

P:\>rmv3.pl

P:\>

#!/usr/bin/perl
use strict;
...
$currentSentence =~ s/[\ba\b|\ban\b|\bthe\b]//g;
print "[$currentSentence]\n";
exit;

P:\>rmv4.pl
[T big dog rolld i  op fild filld wi  yp of grss.]