Help for this page
#!/usr/bin/perl ... } close GETARG or die "Couldn't close $file: $!\n";
perl -pe's/\.$// if /word/' file