$ cat ./paren.perl
#!/usr/bin/perl
use strict;
use warnings;
my $parsed_AsciiName = "Today( is October 28, 2008.";
print "parsed_AsciiName Before = $parsed_AsciiName \n";
$parsed_AsciiName =~ s/\(//;
print "parsed_AsciiName After = $parsed_AsciiName \n";
exit 0;
$ ./paren.perl
parsed_AsciiName Before = Today( is October 28, 2008.
parsed_AsciiName After = Today is October 28, 2008.
I'm still not sure what is not working. Please post COMPLETE code:
$ cat paren.perl
#!/usr/bin/perl
use strict;
use warnings;
my $parsed_AsciiName = "Today( is October 28, 2008.";
print "parsed_AsciiName using split = ", split /\(/,$parsed_AsciiName;
print "\n";
print "parsed_AsciiName Before = $parsed_AsciiName \n";
$parsed_AsciiName =~ s/\(//;
print "parsed_AsciiName After = $parsed_AsciiName \n";
exit 0;
$ ./paren.perl
parsed_AsciiName using split = Today is October 28, 2008.
parsed_AsciiName Before = Today( is October 28, 2008.
parsed_AsciiName After = Today is October 28, 2008.