Change this:

my @sentence = split(/\W+/,$line);

to:

my @sentence = split(/(\W+)/,$line);

Now @sentence will contain the punctuation as well.