use strict;
use warnings;

my $title = "The Tomorrow People";
$title =~ s/.pl//g;
print $title;