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

##</code><code>##

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.

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
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;

##</code><code>##

P:\>rmv3.pl

P:\>

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
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;
print "[$currentSentence]\n";
exit;

##</code><code>##

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